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1. ABSTRACT 


THIS PROGRAM 1S DESIGNED TO BE USED BY AN EXPERIENCED ENGINEER 
/TECHNICIAN FOR EVALUATION AND DEBUGGING OF MAG TAPE DRIVES. 

THE PROGRAM IS CAPABLE OF ty th A as TE16 MAGNETIC 

ON A MASSBUS THROUGH THE TMO3 MAG 

CONTROLLER. ANY COMBINATION OF THOS" S & TE16°S UP TO A MAXIMUM OF EIGHT 
(8), MAY BE TESTED BY A SINGLE EXECUTION OF THE PROGRAM. THIS 
FLEXIBILITY IS POSSIBLE BECAUSE THE PROGRAM HAS NO FIXED PARAMETERS 

OR TESTING SEQUENCE. THE ENTIRE TEST PLAN, INCLUDING PARAMETERS 

AND OPERATING SEQUENCE, 1S DETERMINED BY THE OPERATOR THROUGH 

RESPONSES TO TELETYPE REQUESTS AND SETTING OF CONSOLE SWITCHES. 


THE PROGRAM PROVIDES FOR TESTING OF ALL TAPE DRIVE FUNCTIONS 
SUCH AS WRITING,READING,REWINDING, TAPE POSITIONING,EOT - BOT 
SENSING AND ASSUMES A GOOD RH AND TMO3. 


HOWEVER; THE RH AND TMO3 ARE TESTED SOMEWHAT INTRINSICALLY 
DURING THE TEST CYCLE IN ORDER TO PROVIDE FULL INFORMATION ABOUT 
ANY ERROR CONDITIONS DETECTED. 


DURING A TEST CYCLE, CHECKS ARE MADE FOR STATUS ERRORS,DATA ERRORS, 


POSITION ERRORS,WORD COUNT AND CURRENT MEMORY ADDRESS ERRORS 
WHEREVER APPLICABLE AS DETECTED BY THE RH OR TMOS. 


REQUIREMENTS (HARDWARE ) 


. ANY PDP-11 PROCESSER 
. 8K OF CORE 

- TELETYPE 

- TMO3 TAPE CONTROLLER 

- 1 TO 8 MAG TAPE DRIVES 
. MASSBUS CONTROLLER 


LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING BINARY TAPES 
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4. STARTING PROCEDURE 


THERE ARE FOUR (4) STARTING ADDRESSES THAT MAY BE USED; 
20018) ,204(8),210(8) ,AND 240(8): 


A. 200(8): THIS ADDRESS MUST BE USED ON INITIAL START FROM 
LOAD AS ALL PARAMETERS ARE ENTERED FROM HERE. 
REQUESTS ARE PRINTED ON THE TELETYPE FOR ENTRY OF 
RH STARTING ADDRESS, VECTOR ADDRESS, DRIVE NUMBER(TMOS ADDRESS), 
SLAVE NUMBER, DENSITY,PARITY,FORMAT,RECORD COUNT CHARACTER 
COUNT, PATTERN NUMBER, TAPE MARK AND STALL FOR READ,WRITE, 
AND TURNAROUND. ALL REPONSES SHOULD BE MADE IN 
OCTAL AND WITHIN THE LIMITS OF THE PARAMETER. 
A QUESTION MARK (7?) WILL BE TYPED IF ANY 
CHARACTER ENTERED IS NOT BETWEEN O THRU 7 (OCTAL). 
THE CHARACTER MAY BE RETYPED FOLLOWING THE QUESTION 
MARK. IF THE RESPONSE IS NOT WITHIN ITS LIMITS. A 
QUESTION MARK (?) IS TYPED AND THE ENTIRE RESPONSE 
MAY BE RENTERED. SOME RESPONSES REQUIRE MORE THAN ONE 
(1) CHARACTER, BUT NONE REQUIRES MORE THAN SIX (6). 
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3 RESPONSES OF MORE THAN ONE CHARACTER NEED NOT HAVE 
3 LEADING ZEROS AND SHOULD BE TERMINATED BY A CARRIAGE 
3 RETURN IF LESS THAN THE MAXIMUM NUMBER OF CHARACTERS 
; 1S INPUT. 
3 B. 204(8): THIS ADDRESS SHOULD BE USED ANYTIME A RESTART 
3 OF THE PROGRAM 1S NECESSARY AND THE PARAMETERS 
3 ENTERED AT THE INITIAL START OF 200(8) NEED NOT 
3 BE CHANGED. ALSO NOTE THAT ANY DATA PATTERN WHICH 
by HAD BEEN GENERATED BY SETTING THE RANDOM DATA 
141 SWITCH (CONSOLE SWITCH EIGHT) WILL NOT BE OVERWRITTEN 
142 AND THERFORE IS HELD IN CORE FOR USE UNTIL 
ae? CONSOLE SWITCH EIGHT(8) IS AGAIN SET AND THAT ALL STATISTICS wit 
4 
145 C. 210(8): THIS ADDRESS IS THE SAME AS USING 204(8) IN THAT THE 
146 PREVIOUSLY SET PARAMETERS ARE USED; HOWEVER, THE DATA 
147 PATTERN 1S RETURNED TO THE FIXED PATTERN ORIGINALLY 
eS CALLED FOR AT THE 200(8) START AND ALL STATISTICS ARE CLEARED 10 
4 


D. 240(8): THIS IS A SPECIAL ADDRESS WHICH WILL CAUSE THE 
PROGRAM TO EXECUTE A PREDETERMINED TEST PLAN ON 
ALL AVAILABLE DRIVES AND SLAVES. THE ONLY INPUT 
REQUIRED BY THE OPERATOR IS A RESPONSE 10 
REQUESTS FOR THE RH ADDRESS, VECTOR ADDRESS, 
CONTINUOUS OPERATION OF THE SEQUENCE, AND NRZ ONLY. 


E. 300(8): THIS ADDRESS IS TO BE USED AS A RESTART ONLY 
AND WILL PERFORM JUST AS IN 200(8) EXCEPT THAT 
THE PARAMETER INPUT LIST IS SHORTENED. THE SHORT 
PARAMETER LIST CONSISTS OF DRIVE NUMBER, SLAVE 
NUMBER, DENSITY, PARITY, FORMAT, RECORD COUNT, 
CHARACTER COUNT, PATTERN, TAPE MARK, AND 
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**NOTE SEE ALSO 


REGISTER START: 


VECTOR ADDRESS: 


CRIVE NUMBER: 


SLAVE NUMBER: 
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INTERCHANGE READ. 
SECTION 8-CONSOLE SWITCH SETTINGS 


THE FOLLOWING IS AN EXPLANATION OF THE INITIAL 
START (200 OCTAL) REQUESTS AND RESPONSES: 


THE RESPONSE REQUIRED FOR THIS REQUEST 
1S TO ENTER THE ADDRESS OF THE FIRST RH 
REGISTER (CS1) AS A SIX DIGIT UNIBUS ADDRESS. 


THE RESPONSE FOR THIS REQUEST 
1S TO ENTER THE INTERRUPT VECTOR ADDRESS 
USED BY THE RH AS A THREE (3) DIGIT ADDRESS. 


THE DRIVE NUMBER (MASSBUS ADDRESS 

OF THE TMO3) IS ENTERED AS ONE (1) 

OCTAL CHARACTER AND MUST BE WITHIN THE LIMITS 
OF 0 THROUGH 7. 


THE SLAVE NUMBER IS ENTERED AS ONE 

(1) OCTAL CHARACTER AND MUST BE 

WITHIN THE LIMITS OF O THROUGH 7. 

WHEN THE SLAVE NUMBER HAS BEEN 

ENTERED AND IS LEGAL, THE PROGRAM TESTS 
FOR THE PRESENCE OF A SLAVE OF THAT 
NUMBER. IF THE SLAVE IS AVAILABLE 

A PRINTOUT OF 7 CHANNEL, IF APPLICABLE, 
AND ITS SERIAL NUMBER (IN BCD) 

WILL BE MADE TO ASSIST THE OPERATOR 

IN SETTING OF DENSITY, PARITY, AND FORMAT. 
A CHECK 1S MADE FOR THE PROPER SETTING 
OF THE DRIVE TYPE REGISTER; IF WRONG, A 
MESSAGE IS PRINTED FOR INFORMATION ONLY. 
If THE SLAVE IS NOT AVAILABLE, 

A MESSAGE STATING SO WiLL BE 

PRINTED AND A NEW SLAVE NUMBER 

REQUEST WILL BE ISSUED. WHEN A 

GOOD SLAVE NUMBER HAS BEEN ENTERED, 
REQUESTS FOR OPERATING DENSITY 

PARITY AND FORMAT ARE MADE FOR THAT 
SLAVE AND SHOULD BE RESPONDED TO 
ACCORDING TO THAT PARITICULAR SLAVE'S 
NEEDS. AS MANY AS EIGHT (8) SLAVE 
NUMBER REQUESTS MAY BE USED, HOW- 

EVER, AT LEAST ONE MUST BE USED. 

THE SLAVE NUMBERS AND THEIR RESPECTIVE 
DENSITY, PARITY AND FORMAT MAY BE ENTERED 
IN ANY ORDER. THE INFORMATION FOR 

EACH SLAVE ENTERED IS LOADED INTO A 
TABLE FOR REFERENCE IN TESTING. 

IF LESS THAN EIGHT(8) SLAVES ARE 
REQUIRED, THEN RESPONDING TO THE 

SLAVE NUMBER REQUEST WITH A CARRIAGE 
RETURN WILL TERMINATE THE SLAVE 

ENTRIES AND CONTINUE TO THE NEXT 
PARAMETER. 11 SHOULD BE REMEMBERED 
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220 THAT AT LEAST ONE nT NUMBER REQUEST 
THE FIRST 





221 MUST BE ENTERED. IF 
222 REQUEST IS RESPONDED TO BY A CARRIAGE 
st RETURN, THEN THE REQUEST WILL BE REPEATED. 
225 
226 
227 DENSITY: THE DESITY REQUEST IS RESPONDED TO BY ONE (1) OCTAL 
228 CHARACTER AND MUST BE WITHIN THE LIMITS OF O THRU 4. 
229 AS EACH SLAVE NUMBER IS ENTERED, A REQUEST FOR THE 
230 OPERATING DENSITY FOR THAT SLAVE IS TYPED. THE 
$3) RESPONSE MEANINGS ARE AS FOLLOWING: 
233 A. 3 = B00BPI, NRZI 
See B. 4 = 1600BP1, PE (9 CHANNEL ONLY) 
236 
237 PARITY: THE PARITY REQUEST 1S RESPONDED TO BY ONE (1) 
te OCTAL CHARACTER AND MUST BE EITHER O OR 1. 
240 A. 1 = EVEN PARITY 
at B. 0 = ODD PARITY 
243 FORMAT: THE FORMAT REQUEST " RESPONDED 
244 TO BY TWO (2) CHARACTERS 
7 AND SHOULD BE AS FOLLOWS 
247 A. 14 = 9 CHANNEL NORMAL (TWO FRAMES PER WORD) 
248 B. 15 = CORE DUMP (FOUR FRAMES PER WORD) 
249 C. 16 = PDP-15 OR IBM COMPATABLE(TWO FRAMES PER 
Ty (DATA IS BYTE SWAPPED ON TAPE) 
252 RECORD COUNT: THIS REQUEST IS RESPONDED TO BY A SIX (6) CHARACTER 
253 OCTAL NUMBER FROM 1 TO 177777. REMEMBER LEADING 
254 ZEROS ARE NOT REQUIRED AND IF LESS THAN SIX 
255 CHARACTERS ARE ENTERED, A CARRIAGE RETURN 
256 WILL TERMINATE THE RESPONSE. THE RECORD COUNT 
257 1S USED IN CONJUCTION WITH THE CHARACTER COUNT 
258 TO ESTABLISH A BLOCKING FACTOR FOR USE IN READ OR 
44 WRITE CYCLES. 
i 261 CHARACTER COUNT: THIS RESPONSE IS ENTERED AS FOUR (4) OCTAL 
6, 262 CHARACTERS WITHIN THE LiMITS OF 20 THRU 4000. AGAIN 
263 LEADING ZEROS ARE NOT REQUIRED AND A CARRIAGE 
264 RETURN TERMINATES A LESS THAN FOUR (4) CHARACTER 
265 RESPONSE. THE CHARACTER COUNT IN CONJUNCTION 
266 WITH THE RECORD COUNT IS USED TO ESTABLISH 
267 THE BLOCK SIZE (CHARACTERS PER RECORD, AND 
268 RECORDS PER BLOCK) USED IN READ AND WRITE CYCLES 
269 THE SAME BLOCKING IS USED ON ALL AVAILABLE UNITS. 
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PATTERN NUMBER: ons RESPONSE IS A TWO (2) CHARACTER 1 Sg 


TAPE MARK: 


UMBER WITHIN THE LIMITS OF O THRU 15 
THE NUMBER ENTERED WILL CAUSE A SPECIFIC DATA 
PATTERN TO BE USED FOR ALL READING AND WRITING. THIS 
DATA PATTERN IS NOT CHANGED UNLESS RANDOM DATA 
1S REQUESTED BY SETTING CONSOLE SWITCH EIGHT (8) 
TO A ONE. RESETTING OF THE RANDOM DATA SWITCH 
DOES NOT CAUSE REVERSION TO THE FIXED a cath 
BUT WILL HOLD THE LAST GENERATED PATTERN U 


A RESTART IS DONE FROM LOCATION 200(8), 210(8), OR 300(8). 


WHEN OPERATING IN NRZ MODE (DENSITY 0-3) 

THE PROGRAM CONSTRUCTS AND SAVES 

BOTH AN EXPECTED CRC CHARACTER AND AN 

LRC CHARACTER FOR COMPARISONS WITH 

THE HARDWARE pg tt CHECK CHARACTER 

IN BOTH READ AND WRITE. 

THE SELECTION OF DATA PATTERN ZERO (0) HAS A 
SPECIAL USE. PATTERN NUMBER ZERO (0) WILL 
CAUSE TO BE READ IN AT THE HIGH SPEED PAPER 
TAPE READER ANY DATA PATTERN DESIRED. 

THE EXTERNAL INPUT DATA THOUGH THE READER 

1S DONE BY PREPARING A PAPER TAPE WITH A PROGRAM 
CALLED DTC. (MAINDEC-11-DZTUF-A-D) ANY CONFIGURATION 
OF BITS AND CHARACTERS MAY BE USED AND A LIMIT 
OF 377(8) CHARATERS IS IMPOSED. WHEN EXTERNAL 
DATA 1S INPUT, THE ENTIRE WRITE BUFFER IN 

CORE 1S FILLED WITH THE PATTERN SO THAT ANY 
SIZE RECORD MAY BE USED. DATA PATTERN 

PATTERN ZERO (0) EXTERNAL PAPER TAPE NEED ONLY 
BE READ ONCE AT INITIAL START OF 200(8), AND 
NEED NOT BE READ AGAIN UNLESS OVERWRITTEN BY 
RANDOM DATA. BE SURE TO LOAD THE READER 

BEFORE PRESSING START. 


THE TAPE MARK REQUEST IS USED TO DETERMINE 
If THE OPERATOR WISHES TO HAVE EACH 

DATA BLOCK SEPERATED BY A TAPE MARK. IF 
RESPONDED TO BY A ONE (1) THE TAPE MARK 
WILL BE WRITTEN AND WHEN READING WILL 

BE EXPECTED AT THE END OF DATA BLOCK. 

A ZERO (0) RESPONSE WILL DISALLOW TAPE 
MARK. PLEASE NOTE THAT THE TAPE MARK 
RECORD INCREASES THE BLOCK SIZE BY ONE (1) 
RECORD; IN OTHER WORDS, A BLOCK OF 100 
RECORDS WILL HAVE THE TAPE MARK AS RECORD 101. 


INTERCHANGE a: THIS REQUEST IS RESPONDED TO BY 


SINGLE CHARACTER INPUT OF EITHER 
ONE (1) OR ZERO (0). A RESPONSE OF ONF (1) 
WILL CAUSE ALL READING TO BE DONE IN 
THE INTERCHANGE MODE. A ZERO RESPONSE 
WILL CAUSE READING IN NORMAL MODE. 


SEQ 0007 
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325 
326 
327 SINGLE PASS: as REQUEST IS RESPONDED TO BY EITHER A ONE (1) 
328 OR A ZERO (0). RESPONSE OF 1, WILL CAUSE THE TEST 
329 TO BE STOPPED “AFTER THE LAST AVAILABLE DRIVE 
330 REACHES END OF TAPE. A RESPONSE OF 0, WILL 
331 ALLOW CONTINUOUS RUNNING THROUGH MULTIPLE PASSES. 
332 TO RESTART AT END OF PASS, PRESS CONTINUE, OR 
th RESTART AT THE CONSOLE. 
335 - $§TALLS: THE STALL REQUESTS ARE RESPONDED TO BY A SIX (6) 
336 CHARACTER OCTAL NUMBER WITHIN THE LIMITS OF 1 
337 THRU 177777. LEADING ZEROS ARE NOT REQUIRED AND 
338 AN ENTRY OF LESS THAN SIX (6) CHARACTERS SHOULD 
339 BE TERMINATED BY A CARRIAGE RETURN. EACH INCREMENT 
e OF THE VALUE ADDS ABOUT 2.6 MICSEC TO THE DELAY. 
744 READ: THE TIME DELAY BETWEEN EACH RECORD READ 
ae WRITE: THE TIME DELAY BETWEEN EACH RECORD WRITTEN 
346 TURN AROUND: dos; DELAY BETWEEN CHANGES OF 
347 APE DIRECTION (FORWARD,TO REVERSE,ETC.) 
0 ue BETWEEN BLOCKS. 
350 FIXED PARAMCTERS: ty SHOULD BE NOTED THAT ALL PARAMTERS EXCEPT 
351 FOR THE SLAVE DESCRIPTION VALUES (SLAVE 
352 MUNBER. DENSITY, PARITY, AND FORMAT) HAVE NOMINAL 
353 VALUES ALREADY STORED IN THE PROGRAM. 
354 COUNT, CHARACTER COUNT, TAPE MARK AND STALLS) IS TYPED. 
355 ITS PRESENT STORED VALUE 1S ALSO PRINTED. 
356 IF THESE VALUES NEED NOT BE CHANGED, SIMPLY 
357 TYPE A CARRIAGE RETURN AS RESPONSE AND NO 
358 CHANGE WILL BE MADE. EACH START OF THE PROGRAM 
359 AT 200(8) WILL SHOW THE CURRENT VALUES OF THESE 
360 PARAMETERS AS PER THE LAST ENTRY. WHEN A 
361 FRESH LOAD OF THE PAPER TAPE IS DONE, THE 
362 PARAMETERS WILL REFLECT THE FIXED VALUES STORED 
= IN THE PROGRAM. 

4 
365 A. RECORD COUNT = 100 
366 B. CHARACTER COUNT = 200 
367 C. PATTERN NUMBER = 1 
368 D. TM=0 
369 E. INTERCHANGE READ = 0 
370 F. SINGLE PASS = 
371 G. READ STALL = 1 
372 H. WRITE STALL = 1 
th 1. TURN AROUND STALL = 1 

4 
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SAMPLE START AT 200(8): 


THE FOLLOWING IS A SAMPLE OF THE 

PRINTED REQUESTS AND THEIR RESPONSES. 
RESPONSES ARE ENCLOSED IN PARENS FOR 
CLARITY ONLY AND (CR) MEANS CARRIAGE RETURN 


LOAD ADDRESS 200(8), SET CONSOLE SWITCHES, PRESS START SWITCH: 


TE16 TAPE DRIVE TEST 


REGISTER START=172440(172440) 
VECTOR ADDRESS=224(CR) 

DRIVE NUMBER (4) 

SLAVE NUMBER=(5) SN: 5009 
DENSITY=(3) 

PARITY=(0) 

FORMAT=(14) 

SLAVE NUMBER=(2) 9 CHAN SN: 0022 
DENSI TY=(3) 

PARITY=(1) 

FORMAT=(15) 

SLAVE NUMBER=(CR) 

RECORD COUNT=100 (500) (CR) 
CHARACTER COUNT=200 (38)?(7)(CR) 
PATTERN NUMBER=1 (22) 


(6) (CR) 

TM=(0) 

INTERCHANGE READ=(1) 
SINGLE PASS=(0) 


ENTER STALLS 

READ=1 yt 

WRITE=1 (C 

TURN AROUND= 1 (3000) (CR) 


THE PROGRAM WILL NOW PERFORM THE TEST CYCLE SET IN 

THE CONSOLE SWITCHES ON SLAVE FIVE (5) THEN TWO (2), 

ONE BLOCK ON EACH UNIT PER CYCLE, USING DATA PATTERN 
NUMBER SIX (6) WITH A BLOCKING FACTOR OF 37 CHARACTERS 
PER RECORD AND 500 RECORDS PER BLOCK. THE DELAYS ARE SET 
FOR MINIMUM ON READ AND WRITE, AND APPROXIMATELY .75 
SECONDS ON TURN AROUND. 


NO TAPE MARKS WILL BE WRITTEN AND ALL READING 
WILL BE DONE IN INTERCHANGE MODE (MAINT MODE 0001). 


ae a ne pe 


SEQ 0009 
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AUTOMATIC MODE OPERATION 


1f THE PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) MODE 
THE AUTO ACCEPT SEQUENCE TEST PLAN IS RUN. SEE SEC 11. BELOW; 
THE SOFTWARE SWR 1S INVOKED WITH A SWITCH SETTING OF 000000 
IF LOADED VIA ACT11. NO OPERATOR INTERVENTION IS REQUIRED. 


**EXCEPTION: IF THIS PROGRAM 1S LOADED VIA TMDP CHAIN MODE THE 
PROGRAM WILL TEST ALL SLAVES ON THE FIRST AVAILABLE 
DRIVE EXCEPT SLAVE 0. 


**NOTE: IN ORDER TO CHANGE THE DEFAULT SETTING OF THE SOFTWARE 
SWR, CHANGE LOC: 176(SWREG:) TO THE DESIRED SETTING. 


DATA PATTERNS 


THERE ARE FIFTEEN DATA PATTERN GENERATORS STORED IN CORE 
AND ANY ONE OF THESE MAY BE SELECTED. THE ONE UNIQUE 
CASE 1S PATTERN ZERO(O); SELECTION OF PATTERN ZERO(O) 
REQUIRES THAT A PREVIOUSLY PREPARED PAPER TAPE BE 
ENTERED AT THE HIGH SPEED READER. THIS TAPE CONTAINS 

A DATA PATTERN OF NO MORE THAN 377 OCTAL 
CHARACTERS. THE FIRST CHARACTER READ IN IS THE 
NUMBER OF ACTUAL DATA CHARACTERS THAT ARE ae 
ON THE TAPE. EACH DATA CHARACTER MAY BE A 
COMBINATION OF BITS AND WILL BE LOADED INTO. CORE 
AS THEY APPEAR ON THE TAPE. NO MATTER HOW MANY 
CHARACTERS ARE ON TAPE, THE ENTIRE WRITE BUFFER (4000 CHARACTERS) 
WILL BE FILLED WITH THE PATTERN ENTERED SO THAT ANY 
SIZE RECORD CAN BE USED. (SEE DTC MAINDEC-11-DZTUF-A-D) 
THE PROGRAM GENERATES A CYLIC REDUNDENCY CHECK 
CHARACTER (CRC) AND A LONGITUDINAL REDUNDENCY CHECK 
CHARACTER (LRC) FOR COMPARISONS AGAINST THE CRC AND LRC 
GENERATED BY THE HARDWARE IN NRZI READS OR WRITES. 


THE FOLLOWING 1S A LIST OF THE DATA PATTERNS AVAILABLE: 


DATAO: EXTERNAL INPUT THRU HIGH SPEED READER (SEE DTC) 

DATA1: ALL ONE BITS IN ALL CHARACTERS 

DATA2: ALL ZERO BITS IN ALL CHARACTERS 

DATA3: A ONE BIT WALKING FROM RIGHT TO LEFT IN A FIELD OF ZEROS 
DATA4: A ZERO BIT WALKING FROM RIGHT TO LEFT IN A FIELD OF ONES. 
DATAS: ALTERNATING ONE AND ZERO BITS IN EACH CHARACTER 

DATA6: ALTERNATING ZERO AND ONE BITS IN EACH CHARACTER 

DATA7: SAME AS DATAS BUT WITH EVERY OTHER CHARACTER COMPLEMENTED 
DATA10: WALKING ONE/ALL ONE IN ALTERNATING CHARACTERS 

DATA11: INCREMENTING CHARACTERS (000-377) 

DATA12: DECREMENTING CHARACTERS (377-000) 

DATA13: ALTERNATING CHARACTERS OF ALL ZERO AND ALL ONE BITS 
DATA14: WALKING ZERC/ALL ZERO IN ALTERNATING CHARACTERS 

DATA15: AUTO SEQUENCE PATTERN 0,0,-1.-1,-1,0,0 


eee 


SEQ 0010 
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483 6. RANDOMIZATION 
VMN Sor ess. ee. SS SS he eee 
485 
486 THERE ARE THREE (3) VALUES THAT MAY BE GENERATED RANDOMLY; 
487 DATA, CHARACTER COUNT, AND RECORD COUNT. THESE ARE NORMALLY SET TO 
488 SOME FIXED VALUE BUT MAY BE RANDOMIZED BY SETTING THE APPROJATE 
mH CONSOLE SWITCHES. 
491 A. RANDOM DATA: (CONSOLE SWITCH 8) 
492 GENERATES AN ENTIRE BUFFER, CHARACTER BY 
493 CHARACTER, OF RANDOM DATA WHEN SWITCH 8 
494 1S SET TO A ONE. ONCE SET, THE RESETTING OF 
495 SWITCH 8 CAUSES THE LAST GENERATED PATTERN 
496 TO BE RETAINED IN CORE. A RESTART AT LOCATION 
497 200(8) OR 210(8) WILL CAUSE REVERSION OF THE 
498 DATA TO THE FIXED PATTERN REQUESTED INITIALLY. 
499 A RESTART AT LOCATION 204(8) WILL HOLD 
500 THE LAST GENERATED PATTERN IN CORE UNTIL SWITCH 
501 8 IS AGAIN SET. 
502 ALTHOUGH THE DATA IS GENERATED AS RANDOM, 
503 THE PROGRESSION OF RANDOM CHARACTERS IS ALWAYS 
504 THE SAME FROM THE OUTSET OF RANDOMIZATION. 
505 THEREFORE IT IS POSSIBLE TO GENERATE ONE TAPE REEL 
506 OF RANDOM DATA ON ONE UNIT, RESTART THE 
507 PROGRAM TO RE~ESTABLISH THE OUTSET POINT, AND 
508 READ THE RANDOM TAPE REEL ON ANOTHER UNIT 
509 FOR COMPATABILITY TESTING. IN MULTIDRIVE SYSTEMS THE SAME 
510 BLOCK OF DATA, WHETHER RANDOM OR FIXED, . 
511 WRITTEN OR READ ON EACH AVAILABLE UNIT IN THE 
aig ORDER THAT THEY WERE ENTERED, BEFORE BEING CHANGED. 
514 B. RANDOM CHARACTER COUNT: (CONSOLE SWITCH 7) 
515 GENERATES A DIFFERENT NUMBER OF CHARACTERS 
516 PER RECORD TO BE WRITTEN ON EACH BLOCK CYCLE. 
517 THE SAME NUMBER OF CHARACTERS PER RECORD IS 
518 WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
519 BEING CHANGED. RESETTING SWITCH 7 HOLDS THE 
43 LAST VALUE GENERATED. 
522 C. RANDOM RECORD COUNT: (CONSOLE SWITCH 6) 
523 GENERATES A DIFFERENT NUMBER OF RECORDS 
524 FOR EACH BLOCK OF DATA WRITTEN OR READ ON 
525 EACH BLOCK CYCLE. THE SAME NUMBER OF RECORDS 
526 1S WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
527 BEING CHANGED. RESETTING SWITCH 6 HOLDS LAST VALUE 
355 GENERATED. 
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531 

532 

533 7. DYNAMIC PARAMETERS: 

PS Se eee 

536 THE THREE (3) STALL VALUES ARE CONSIDERED TO BE DYNAMIC 

537 PARAMETERS AS THEY MAY BE CHANGED WHILE THE PROGRAM IS 

538 RUNNING BY TYPING A CONTROL B CHARACTER AT THE TELETYPE. 

539 AS SOON AS THE BUS IS RELEASED BY THE MAG TAPE OPERATION 

540 IN PROGRESS, THE PROGRAM WILL RESPOND TO THE CONTROL C_ INPUT 
541 BY TYPING A REQUEST FOR NEW STALL PARAMETERS. THE LAST VALUES 
542 THAT WERE ENTERED WILL BE PRINTED AS THE STORED VALUES AND MAY 
543 BE CHANGED BY ENTERING NEW VALUES OR LEFT UNCHANGED BY 

544 TYPING A CARRIAGE RETURN. 

545 THE YOZZLE STALL 1S ALSO DYNAMIC AND CA’. BE CHANGED 

546 BY TYPING A CONTROL B WHILE DOING A YOZZLE. A YOZZLE STALL 

547 REQUEST WILL BE PRINTED AND SHOULD BE RESPONDED TO WITH 

05 THE DESIRED VALUE. 
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551 
352 8. CONSOLE SWITCH SETTINGS 
554 
555 CONTROL : 
556 
557 1) CONTROL G <*G>; 
558 SELECTS SOFTWARE SWR AND ALLOWS USER TO SELECT NEW SWITCHES. 
559 THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= 
560 WHERE: XXXXXX IS THE OCTAL CONTENTS OF THE SOFTWARE SWR. 
561 AFTER THE "NEW=' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
562 OF THE FOLLOWING AT THE TTY: 
563 | A) TYPE A NUMBER TO BE LOADED INTO THE SOFTWARE SWR 
564 | B) IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWR 
365 CONTENTS WILL NOT BE CHANGED. 
567 2) CONTROL A <*A>; 
368 ALTERNATES USAGE OF THE SWR BETWEEN THE HARDWARE SWR & SOFTWARE SwR. 
570 3) CONTROL B <“*B>; 
3m ; SEE SECTION 7 DYNAMIC PARAMETERS 
$75 * 4) CONTROL U <*U>; 
57% DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REQUEST. 
576 THE CONSOLE SWITCHES ARE USED TO SET UP THE TEST CYCLE 
577 ; DESIRED, TO GENERATE RANDOM VALUES, AND TO CONTROL ERROR 
578 : RESPONSES. THE SWITCHES SHOULD BE SET IN THE DESIRED 
579 MANNER BEFORE PRESSING THE START SWITCH BECAUSE THEY 
580 ARE ALL DYNAMIC AND WILL RUN THE PROGRAM IN ANY 
581 CONFIGURATION. ALL SWITCHES SET TO ZERO(O) 1S NORMAL. 
583 Sw15:  1=STOP ON ERROR 
28s O=CONTINUE ON ERROR 
586 SW14:  1=PRINT READ/WRITE STATISTICS 
587 0=D0 NOT PRINT STATS 
589 Sw13:  1=D0 NOT CHECK DATA ERRORS 
590 O=CHECK DATA ERRORS 
592 Sw12: 1=DO NOT CHECK WRITE STATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 
593 O=CHECK WRITE STATUS ERRORS 
? 
595 Swi1: 1=DO NOT CHECK READ STATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 
596 O=CHECK READ STATUS ERRORS 
598 Sw10: 1=DO NOT PRINT ANY ERRORS (EXCEPT CATASTROPHIC ERRORS) 
599 O=PRINT ALL ERRORS 
’ | 
601 Sw9:  1=REWIND ALL AVAILABLE TAPES 
602 0=D0 NOT REWIND 
6 
604 SWB:  1=GENERATE RANDOM DATA 
605 O=USED FIXED DATA 
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607 Sw7: 1=GENERATE RANDOM CHARACTER COUNT 
reo O=USE FIXED CHARACTER COUNT 
610 SW6: 1=GENERATE RANDOM RECORD COUNT 
+f O=USED FIXED RECORD COUNT 
615 SwW5: 1=YOZZLE ON CURRENT RECORD 
oie 0=D0 NOT YOZZLE ON RECORD 
616 SW4: 1=DO WRITE/READ RETRIES 
at 4 0=DO NOT RETRY 
619 SwW3: 1=D0 NOT READ FORWARD 
ret] O=READ FORWARD 
622 SW: 1=DO0 NOT READ REVERSE 
444 O=READ REVERSE 
625 SW: 1=READ FORWARD FIRST 
eee O=READ REVERSE FIRST 
628 Sw0: et ~ i WRITE 
629 O=WR 
630 
631 
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SWITCH EXPLANATION AND EXAMPLES: 


Sw0-3: 


THESE SWITCHES ARE USED TO CONTROL THE SEQUENCE 

OF MAG TAPE OPERATIONS PREFORMED ON EACH AVAILABLE 
UNIT. THE BLOCK OF DATA DESCRIBED THROUGH 

THE RESPONSES TO TELETYPE REQUESTS AT INITIAL START 
WILL BE EITHER WRITTEN OR READ FROM EACH AVAILABLE 
UNIT IN THE ORDER THAT THEY WERE ENTERED. THE SEQUENCE 
OF OPERATIONS IS CALLED A CYCLE, AND WILL BE PERFORMED 
CONTINUOUSLY UNTIL STOPPED BY THE OPERATOR. WHEN END 
OF TAPE IS REACHED, THE UNIT WILL BE REWOUND AND 
FLAGGED AS UNAVAILABLE FOR TEST UNTIL ALL UNITS HAVE 
REACH EOT, AT WHICH TIME TESTING IS RESUMED ON ALL 
AVAILABLE UNITS. 


EXAMPLES: 0-3 


A. SWO=0,SW1=0,SW2=1,SW3=1 
WRITE ONLY X RECORDS OF Y CHARACTERS 


B. SwO=0,SW1=0,SW2=1,SW3=0 
WRITE THEN BACKSPACE AND READ FORWARD X RECORDS 


C. SwWO=0,SW1=0,SW2=0,SW3=1 
WRITE THEN READ REVERSE X RECORDS. 


D. SwO=0,SW1=0,SW2=0,SW3=0 
WRITE THEN READ REVERSE AND READ FORWARD X RECORDS 


E. SwO=0,SW1=1,SW2=0,SW3=0 
WRITE THEN BACKSPACE AND READ FORWARD THEN REVERSE 


F. SwO=1,SW1=0,SW2=1,SW3=0 
READ TAPE FORWARD X RECORDS 


G. SWO=1,SW1=0,SW2=0,SW3=1 
READ TAPE REVERSE X RECORDS 


H. SWO=1,SW1=0,SW2=0,SW3=0 
READ TAPE REVERSE THEN FORWARD 


1. SWO=1,SW1=1,SW2=0,SW3=0 
READ TAPE FORWARD THEN REVERSE 


SEQ 0015 
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SwW4: 


SwW5: 


SW6-8: 


Sw9: 
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SWITCH FOUR (4), WHEN SET TO A ONE (1), WILL 
CAUSE ANY DATA RELATED ERROR TO BE RETRIE 


D. 
THE WRITE RETRY SCHEME CONSISTS OF i THE RECORD 


IN THE SAME SPOT ON TAPE FOUR (4) TIMES 

ALL FOUR (4) REPEATS ARE SUCCESSFUL, THE 

RECORD IS CONSIDERED AS RECOVERED, AND A TAPE 
WRITE ERROR 1S LOGGED. IF ANY OF THE FOUR 

(4) REPEATS IS UNSUCESSFUL, A SKIP ERASE IS 
DONE, A SUPECTED BAD TAPE SPOT IS LOGGED 

AT THIS BLOCK AND RECORD NUMBER, AND A SECOND 
RETRY OF FOUR REPEATS IS DONE. IF AFTER FOUR 
(4) RETRIES, THE RECORD CANNOT BE RECOVERED 

A NOTIFICATION IS PRINTED, AND TESTING IS 
RESUMED ON THE NEXT RECORD. 

1F 20(8) BAD TAPE SPOTS ARE FOUND, THE 

SLAVE WILL BE REWOUND AND REMOVED FROM 

TESTING WITH AN APPROPRIATE MESSAGE PRINTED. 
THE READ RETRY SCHEME CONSISTS OF REREADING THE 
RECORD UP TO EIGHT TIMES. IF ALL EIGHT REREADS ARE 
BAD, IT IS A_ HARD ERROR. IF ANY REREAD IS 
SUCCESSFUL, THIS 1S A SOFT ERROR. 

IF THE ORIGINAL ERROR IS OF THE NON-RETRYABLE 
TYPE (IE: ILF,RMR,ILR,NEF,CBUSPE), THE RETRY SCHEME 
1S NOT ENTERED AND A MESSAGE IS PRINTED. 


SWITCH FIVE (5) WHEN SET DURING A READ 
FORWARD OR REVERSE WILL CAUSE THE TAPE 

TO CONTINUOUSLY READ THE CURRENT RECORD 

BY SPACING EITHER FORWARD OR REVERSE AND 
REREADING THAT RECORD. THIS TAPE MOVEMENT 
1S CALLED YOZZLING. THERE IS A SOFTWARE 
DELAY EXECUTED BETWEEN EACH SPACE/READ 

OF THE RECORD AND IT MAY BE VARIED BY 
TYPING CONTROL C ON THE TELETYPE DURING 
THE EXECUTION OF THE YOZZLE AND RESPONDING 
TO THE PRINTED REQUEST WITH A SIX (6) 
DIGIT VALUE. THE YOZZLE STALL IS PRESET 
TO A VALUE OF 3000 IN THE PROGRAM TO 
PREVENT EXCESSIVE TAPE WEAR, BUT MAY BE 
SET TO ANY VALUE THROUGH THE TELETYPE. 


THESE THREE (3) SWITCHES CONTROL THE RANDOMIZATION 
OF DATA AND BLOCK SIZE AND MAY BE SET 

AND RESET AT ANY TIME. THE ACTUAL CHANGE 

WILL TAKE PLACE BETWEEN BLOCK CYCLES. 


SWITCH NINE (9) WHEN SET WILL CAUSE ALL 
AVAILABLE TAPE UNITS TO BE REWOUND AT 

THE END OF THE CURRENT BLOCK CYCLE. TESTING 
WILL BE RESUMED AT A BLOCK COUNT OF 

ONE (1) WHEN ALL UNITS HAVE REACHED BOT. 


SEQ 0016 
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Sw10-13: 


**NOTE THAT WHEN SW11 OR 12 ARE SET, 
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THESE SWITCHES ARE USED TO CONTROL THE 
ERROR HANDLING TO BE DONE ON THE TAPE 
OPERATION DESCRIBED BY SWITCHES 0-3. 


SWITCH TEN (10) WHEN SET TO A ONE 

WILL DISALLOW ANY ERROR PRINTOUTS MADE 

ON THE OPERATION IN PROGRESS. CATASTROPHIC 
FAILURES AND INFORMATION PRINTOUTS WILL 

STILL OCCUR. JIE: UNIT NOT AVAILABLE, ILLEGAL 
BOT, DROP OR PICK OVERFLOW, AND EOT REWIND. 


SWITCH ELEVEN (11) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING FOR STATUS 


ERRORS ON READ (FORWARD OR REVERSE) OPERATIONS. 


SWITCH TWELVE (12) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING FOR STATUS 
ERRORS ON WRITE OPERATIONS. 


SWITCH THIRTEEN (13) WHEN SET TO A ONE 
WILL DISALLOW THE CHECKING OF READ 
DATA. THIS SWITCH HAS NO EFFECT ON 
STATUS CHECKING. 


SEQ 0017 


NOT ONLY ARE ERRORS NOT CHECKED, BU 


*t**THEREFOR USE CAUTION TO ASSURE THAT OPERATIONS ARE NOT UNEXECUTED DUE 


**#*D0 NOT SET SW 11 OR 12 TO A ONE (1), 


SWi4: 


Swi5: 


SWITCH FOURTEEN (14)WHEN SET TO A ONE (i) WILL 


DURING A RETRY SEQUENCE. 


PRINT THE ACCUMULATED READ/WRITE STATISTICS FOR THE SELECTED 


SLAVE UNDER TEST AT THE END OF THE CURRENT BLOCK 
CYCLE. THE STATISTICS PRINTED ARE THE NUMBER OF BITS 
DROPPED OR PICKED, THE NUMBER OF RETRIES, WRITE ERRORS, 


READ ERRORS, AND DATA ERRORS. 


SWITCH FIFTEEN (15) WHEN SET TO A ONE, 

WILL CAUSE THE PROGRAM TO HALT ON ANY 

ERROR DETECTED BY THE OPERATION IN PROGRESS. 
If BOTH SWITCH TEN (10) AND FIFTEEN (15) 

ARE SET, THE ACTUAL ERROR Be pen yeu 

NOT BE PRINTED BUT WILL CAUSE A HALT 

If SWITCH TEN (10) IS RESET BEFORE PRESSING 
CONTINUE, THE ERROR WHICH CAUSED THE HALT 
WILL BE PRINTED BEFORE TESTING 1S RESUMED. 
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779 
780 9. ERROR PRINTOUTS 
3 a a i ee 
782 
783 THERE ARE THREE TYPES OF ERROR PRINTOUTS MADE BY 
784 THE PROGRAM; OPERATION ERRORS, DATA ERRORS, AND CONDITION 
785 ERRORS. EACH ERROR MESSAGE PRINTED IS PROCEEDED BY A TWO LINE 
786 HEADER WHICH CONTAINS THE DRIVE NUMBER, SLAVE NUMBER, 
787 DENSITY, PARITY, AND FORMAT ON THE FIRST LINE, AND THE BLOCK NUMBER, 
roe RECORD NUMBER, RECORD SIZE, AND ERROR TYPE ON THE SECOND. 
toe A. OPERATION ERRORS: 
792 THESE ARE ERRORS WHICH CAN OCCUR AS A 
ay DIRECT RESULT OF A TAPE OPERATION. 
795 1. READ/WRITE STATUS ERRORS: THESE ARE DETECTED BY EITHER THE TMO3 
796 ITSELF OR BY THE MASSBUS CONTROLLER. 
ads ALL STATUS ERRORS WILL BE REPORTED. 
799 2. TAPE POSITION ERRORS: THESE ARE INDICATED BY AN INCORRECT 
800 SPACE OR REWIND OPERATION IN WHICH 
4 TAPE POSITION BECOMES UNRELIABLE. 
304 B. DATA ERRORS: 
805 DATA ERRORS WILL OCCUR WHEN TAPE IS 
806 BEING READ AND THE DATA FROM TAPE DOES 
807 NOT MATCH THE EXPECTED DATA. WHEN READING 
808 IN THE REVERSE DIRECTION, THE RECORD NUMBERS 
809 WILL BE COUNTED DOWN FROM LAST TO FIRST. 
810 THE CHARACTER NUMBERS IN REVERSE READS WILL 
81 ALSO BE COUNTED DOWN IN ORDER TO REFLECT 
aig TAPE POSITION RATHER THAN THE ORDER TRANSFERRED. 
814 BECAUSE DATA RECORDS CAN BE UP TO FOUR THOUSAND 
815 CHARACTERS LONG, AN ERROR CONDITION WHICH WILL CAUSE 
816 THE ENTIRE RECORD TO READ INCORRECTLY COULD CAUSE A VERY 
817 LENGTHY PRINTOUT. THEREFORE, A COUNTER OF SUCCESSIVE 
818 BAD CHARACTERS IS EMPLOYED. IF TEN (10) CHARACTERS IN 
81 SUCCESSION ARE BAD, A NOTIFICATION IS PRINTED 
820 (BAD RECORD) AND THE NEXT TWENTY FIVE (25) CHARACTERS 
821 ARE SKIPPED BEFORE CHECKING IS RESUMED. IF THE 
822 BAD RECORD CONDITION OCCURS THREE (3) TIMES IN ONE 
825 RECORD, THE REST OF THE RECORD IS SKIPPED, DOWN 
824 TO THE LAST TEN (10) CHARACTERS WHICH WILL BE 
825 CHECKED. THE SKIPPING AND RESUMPTION OF CHECKING 
826 WILL ONLY BE DONE ON RECORDS WHICH ARE LONG 
827 ENOUGH TO ALLOW IT. 
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829 
830 
+4) C. CONDITION ERRORS: (CATASTROPHIC) 
833 THESE PRINTOUTS REFLECT THE STATE OF THE TAPE SYSTEM 
tH EITHER BEFORE OR AFTER AN OPERATION 
836 1. EOT: WHEN EOT (END OF TAPE) IS ENCOUNTERED DURING 
837 EITHER A READ OR WRITE, THE CYCLE 1S COMPLETED 
838 ON THE SHORTENED BLOCK AFTER WHICH THE SLAVE 
839 WILL BE REWOUND AND FLAGGED AS UNAVAILABLE 
840 FOR TESTING UNTIL ALL SLAVES HAVE REACHED EOT AND 
841 ARE REWOUND. WHEN THE LAST AVAILABLE SLAVE 
842 HAS REACHED EOT AND BEEN REWOUND TO BOT, 
per TESTING WILL BE RESUMED ON ALL SLAVES. 
845 2. ILLEGAL BOT: "5 A SLAVE ENCOUNTERS BOT DURING 
846 A READ, WRITE, OR SPACE OPERATION, AN ERROR 
847 1S PRINTED AND THE PROGRAM HALTED. THIS 1S 
848 A CATASTROPHIC ERROR. TESTING MAY BE RESUMED 
849 BY PRESSING CONTINUE; BUT A RESTART IS 
231 SUGGESTED. 
852 3. NO INTERRUPT RETURNED: EACH TAPE OPERATION SHOULD BE 
853 TERMINATED BY THE SETTING OF AN INTERRUPT IN 
854 THE CPU. IF NO INTERRUPT IS RETURNED WITHIN 
244 THE APPROPIATE TIME, AN ERROR IS PRINTED. 
857 4. NO MEDIUM ON- tog BEFORE AN OPERATION IS ATTEMPTED, 
858 TMO3 IS CHECKED FOR MOL. IF IT IS NOT 
859 SET, AN ERROR IS PRINTED, AND THE PROGRAM STOPPED. 
4 TESTING MAY BE RESUMED BY PRESSING CONTINUE. 
862 5. NO BOT ON REWIND: AS EACH SLAVE IS REWOUND A CHECK 
863 1S MADE TO ASSURE THAT PROPER POSITION AT BOT 
864 1S ESTABLISHED. IF BOT 1S NOT SET UPON COMPLETION OF 
865 A REWIND, AN ERROR IS PRINTED AND THE PROGRAM 
oe WILL HALT. PRESS CONTINUE TO RESUME TESTING. 
6 
868 6. POSITION ERROR: IF POSITION IS LOST DURING A RETRY, 
869 A MESSAGE IS PRINTED, THE TAPE REWOUND, 
870 AND REMOVED FROM TESTING UNTIL ALL ARE 
fl RESTARTED AT BLOCK ONE. 
873 7. BAD TAPE nae yt 1F 20(8) BAD TAPE SPOTS ARE FOUND, 
874 MESSAGE IS PRINTED, THE TAPE REWOUND, 
875 AND REMOVED FROM TESTING UNITLL ARE 
th RESTARTED AT BLOCK ONE. 
878 8. HARD READ ERROR: IF ANY HARD READ ERROR IS ENCOUNTERED 
879 DURING A RETRY, A MESSAGE IS PRINTED 
44 REGARDLESS OF THE SETTING OF SWI0. 
881 
882 9. NON-RETRYABLE: IF ANY NON-RETRYABLE ERROR IS ENCOUNTERED, A 
883 MESSAGE IS PRINTED REGARDLESS OF THE SETTING OF Swi0. 
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887 D. EXAMPLES: 


889 GLOSSARY: BN = CURRENT BLOCK NUMBER 


890 RN = CURRENT RECORD NUMBER 

891 RS = RECORD SIZE, IN FRAMES 
892 WE = WRITE STATUS ERROR 

893 RE = READ STATUS ERROR 

894 SE = SPACE ERROR 

895 TM = TAPE MARK 

896 F = FORWARD 

897 R = REVERSE 

898 CS1 = RH/TE16 CONTROL REGISTER 
899 wC = RH WORD COUNT 

900 BA = RH BUS ADDRESS 

901 FC = TE16 FRAME COUNT 

902 CS2 = RH CONTROLLER STATUS 

903 DS = TE16 DRIVE STATUS 

904 ER = TE16 ERROR REGISTER 

905 AS = ATTENTION SUMMARY 

906 CK = TE16 CHECK CHARACTER 

907 DB = RH DATA BUFFER 

908 MR = TE16 MAINTENENCE REGISTER 
909 DT = TE16 DRIVE TYPE 

910 SN = TE16 SERIAL NUMBER 

911 TC = TE16 TEST CONTROL 

912 *F = DATA FORMAT 

913 *P = PARITY 

914 *D = DENSITY 

915 *PATRN = DATA PATTERN NUMBER (R = RANDOM) 
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EXAMPLE 


EXAMPLE 


1: IN THIS EXAMPLE SLAVE 1 ON TMO3 0 WAS 
OPERATING AT 1600 BPI IN ODD PARITY USING 
THE NINE CHANNEL NORMAL DATA FORMAT. 

WRITE STATUS ERROR WAS DETECTED. THE BAD 
STATUS INDICATES THAT AN UNCORRECTABLE DATA 
ERROR (BIT 6 OF ER) AND A PE FORMAT ERROR 
(BIT 7 OF ER) OCCURED DURING THE WRITE 
OPERATION OF THE SIXTH (6) RECORD OF THE 
FIFTY (50) RECORDS IN BLOCK (2). THE 

SIZE OF THE RECORD WAS TWO HUNDRED (200) 


FRAMES. THE CHECK CHARACTER REFLECTS THE BAD TRACK. 


DRIVE NO. 0 *SLAVE NO. 1 *D 4 *P 0 *F 14 *PATRN 1 
*BN 2 *RN 6-50 *RS = 200 *WE 

CS1 144260 

CS2 100 

DS 150640 

ER 300 

wC 0 

CK 4 


2: IN THIS EXAMPLE SLAVE 3 ON TMO3 1 WAS 
OPERATING AT 800 BPI IN EVEN PARITY USING 

THE NINE CHANNEL NORMAL DATA FORMAT. A 

READ STATUS ERROR WAS DETECTED DURING 

THE REVERSE READ OF THE TENTH (10) 

RECORD OF THE 25 RECORDS IN THIS BLOCK (12). 
THE SIZE OF THE RECORD IS TWENTY (20) FRAMES. 
THE PRINTOUT INDICATES THE DETECTION OF A 
VERTICAL PARITY ERROR (VPE: BIT 6 OF ER) AND A 
CYCLIC REDUNDENCY ERROR (CRC: BIT 15 OF ER). 
THE CRC CHARACTER, AS RECEIVED, IS NOT 

AS EXPECTED AND IS PRINTED SHOWING BOTH 

THE ACTUAL (FIRST) AND THE EXPECTED (LAST). 


DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 3 
*BN 12 *RN 10-25 *RS 20 *RE R 

CS1 144276 

CS2 100 

DS 150600 

ER 100100 


wC 0 
CRC 767-777 


SEQ 0021 
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EXAMPLE 


EXAMPLE 


3: IN THIS EXAMPLE, THE HEADER IS THE SAME AS 
IN EXAMPLE TWO (2) EXCEPT THAT THE ERROR TYPE 
REFLECTS A READ ERROR IN THE FORWARD 
DIRECTION. IT 1S NORMAL FOR THE SYSTEM 

TO DETECT AN ERROR IN THE FORWARD AND 

REVERSE DIRECTION AT THE SAME RECORD. 
REMEMBER THAT IN REVERSE OPERATIONS THE 
RECORD NUMBER JS COUNTED DOWN SO THAT 

RECORD NUMBER TEN (10) WILL SHOWN IN 

avcase POSITION IN BOTH FORWARD AND 

V . 


DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 2 
*BN 12 *RN 10-25 *RS 20 *RE F 

CS1 144270 

CS2 100 

DS 150600 

ER 100100 


wC 0 
CRC 767-777 


4: IN EXAMPLES 2 AND 3 THE READ OPERATION 

RESULTED IN BAD STATUS, HOWEVER THE 

DATA ASSOCIATED WITH THE OPERATION WAS 

NOT BAD (OR WAS NOT CHECKED: SW 13=1) 

Mgt EXAMPLE (4) SHOWS A PRINTOUT REFLECTING 
A READ STATUS ERROR ACCOMPANIED BY BAD 

DATA IN CHARACTERS FOUR (4) AND SIX (6). 


DRIVE NO. 2 *SLAVE NO. 3 *D 3 *P 1 *F 14 *PATRN 2 
*BN 12 *RN 10-25 *RS 20 *RE F 

CS1 144270 

CS2 100 

DS 150600 

- 100100 


Cc 0 
ch 767-777 


SEQ 0022 
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7 


EXAMPLE 5< THIS EXAMPLE SHOWS A READ DATA ERROR 


EXAMPLE 


WHICH OCCURRED, WITHOUT AN ACCOMPANING 
STATUS ERROR, WHICH RESULTED IN A BAD RECORD. 


DRIVE NO. 3 *SLAVE NO. 1 *D 4 “ O*F 14 *PATRN R 
~ 100 *RN 66-200 *RS 2009 *DE F 


8 “ 
G 14111111 2 
B 00000000_~—ti«y 


1 
11111111 7- 
000 


a 


oS 
o 
o 
o 
o 


o— 
o-nOoOK-CO OK Vo HK FO Kw Oo 


o— 


BAD RECORD 


6: THE FOLLOWING EXAMPLE SHOWS THE 
RESULT OF A SPACE OPERATION THAT 

SHOULD HAVE SPACED REVERSE OVER 

AN ENTIRE 100 RECORD BLOCK BUT 

WHICH TERMINATED AT THE END OF 40 
RECORDS. LEAVING A POSITION ERROR OF 40 


DRIVE NO. 2 *SLAVE NO. 6 *D 2 *P O *Ff 14 
*BN 3 *RN 100-100 *RS 1000 *SE R 
ERR AMT 40 


SEQ 0025 
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EXAMPLE 


EXAMPLE 


7: THIS EXAMPLE REFLECTS AN ERROR DETECTED 
WHILE WRITING A TAPE MARK (TM) AT THE END 

OF THE CURRENT DATA BLOCK PER OPTION RESPONSE 
TM=1. NOTE THAT THE TM RECORD NUMBER 

1S ONE GREATER THAN THE TOTAL NUMBER OF DATA 
RECORDS IN THE CURRENT BLOCK. 


DRIVE _NO. 1 *SLAVE NO. 1 *D 2 *P 0 *F 14 
*BN 67 *RN 101-100 *RS 36 *WE TM 

CS1 144226 

Cs2 300 

DS 150604 

ER 1000 

wC 0 


8: THIS EXAMPLE SHOWS TWO (2) PRINTOUTS 
REFLECTING A WRITE RETRY WHICH WAS NOT 
SUCCESSFUL THE FIRST TIME, BUT WHICH 
DID RECOVER ON THE SECOND. 

THE UNSUCCESSFUL RETRY IS LOGGED AS 

A SUSPECTED BAD TAPE SPOT BY ITS 

BLOCK AND RECORD NUMBER. 


DRIVE NO. 0 *SLAVE NO. 2 *D 4 *P 0 *F 14 *PATRN 6 
*BN 2 *RN 12-20 *RS 667 *WE 

CS1 144260 

CS2 100 

DS 150640 

ER 100 


we 0 
***ORIGINAL ERROR*** 


DRIVE NO. O SLAVE NO. 2 *D 4 *P 0 *F 14 *PATRN 6 
*BN 2 *RN 12-20 *RS 667 *WE 

CS1 144260 

Cs2 100 

DS 150640 

ER 100 

wC 0 

SUSPECT BAD TAPE 

RETRY: 0 

REPT: 0 


RECOVERED 
RETRY: 1 


SEQ 0024 
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1102 
1103 
1104 EXAMPLE 9: IF , DURING A WRITE RETRY THE BACKSPACE 
1105 OR THE ERASE OPERATION RESULT IN AN ERROR, 
1106 THE ERROR WILL BE PRINTED AND THE PROGRAM 
1107 HALTED. THIS EXAMPLE SHOWS THE ERROR PRINT 
4 FOR A SPACE AND AN ERASE (2 EXAMPLES) 
1110 DRIVE NO. 1 *SLAVE NO. 1 *D 35 *P 0 *F 14 
1111 BN 12 *RN 8-64 *RS 500 *SE RTRY 
i ERR AMT 1 
1114 DRIVE NO. 1 *SLAVE NO. 1 *D 3 *P 0 *#F 14 
1115 *BN 12 *RN 8-64 *RS 500 *ERASE 
1116 CS1 144224 
1117 CS2 100 
1118 DS 150600 
1119 ER 400 
Hi as 
1122 EXAMPLE 10: THIS EXAMPLE SHOWS THE PRINTOUT FROM 
1123 A REWIND OPERATION WHICH DOES NOT HAVE 
igs BOT SET AT THE END. 
1126 DRIVE NO. 2 *SLAVE NO. 3 *) 5 *P 0 *F 14 
1127 *BN 66 *RN 15-20 *RS 1000 
Ay NOT BOT ON REWIND: HALT 
1130 EXAMPLE 11: THIS EXAMPLE SHOWS THE PRINTOUT MADE WHEN 
1131 THERE 1S NO INTERRUPT RETURNED AT THE END 
Ae OF AN OPERATION. 
1134 DRIVE NO. 7 *SLAVE NO. 7 *D 2 *P 1 *F 14 
1135 *BN 1 *RN 25-26 *RS 1200 
1136 NO INTERRUPT 
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1138 
1139 10. STATISTICS PRINTOUT 
Net Paar ea ei ae ee me 
1142 THE PROGRAM, THROUGH ITS ERROR CHECKING, IS ABLE TO GATHER CERTAIN 
1143 STATISTICS ABOUT THE PERFORMANCE OF EACH UNIT UNDER TEST. 
1144 THIS INFORMATION 1S PRINTED OUT WHENEVER A UNIT 1S REWOUND 
1145 FROM END OF TAPE, OR BECAUSE IT IS TO BE REMOVED FROM TESTING 
1146 DUE TO SOME CATASTROPHIC ERROR. (POSITION LOST, BAD TAPE OVERFLOW) 
1147 THE STATISTICS MAY BE PRINTED AT ANY TIME BY SETTING 
1148 SWITCH 14 TO A ONE (1). THIS PRESENTS A PICTURE OF PERFORMANCE 
1149 UP TO THIS TIME. THE STATISTICS WILL BE CLEARED UPON REWIND OF THE 
1150 UNIT; BUT NOT BY SETTING Sw 14. 
1152 STATISTICS PRINT EXAMPLE (A HEADER WILL PRECEED THE STATS) 
1154 props: 030006450 
1155 PICKS: 10000002 
1156 RETRY: 1 
1157 WTERR: 2 
1158 REFWD: 3 
1159 SOFT: 2 
1160 HARD: 1 
1161 DEFWD: 0 
1162 REREV: 4 
1163 SOFT: 1 
1164 HARD: 3 
1165 DEREV: 0 
1166 2 BAD TAPE SPOTS 
1167 0 *BN 1 *RN 2 
1168 1 *BN 15 *RN 100 
1170 ** NOTE ** DROPS AND PICKS REFLECT CORE BIT POSITIONS. 
171 THE FOLLOWING IS A TABLE OF CORE BITS TO TRACK NUMBER. 
1173 TRACK NO. 76539182 
1174 CORE BIT 76543210 
1176 DROPS: NUMBER OF DATA BITS DROPPED: PER CORE BIT(SEE NOTE ABOVE) 
1177 PICKS: NUMBER OF DATA BITS PICKED UP: PER CORE BIT(SEE NOTE ABOVE) 
1178 RETRY: NUMBER OF WRITE RETRIES 
1179 WTERR: NUMBER OF WRITE ERRORS NOT ASSOCIATED WITH BAD TAPE 
1180 REFWD: NUMBER OF READ FORWARD STATUS ERRORS 
1181 REREV: NUMBER OF READ REVERSE STATUS ERRORS 
1182 SOFT: NUMBER Of RECOVERED READ ERRORS 
1183 HARD: NUMBER OF UNRECOVERED READ ERRORS 
1184 DEFWD: NUMBER OF FORWARD DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 
1185 DEREV: NUMBER OF REVERSE DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 
1 
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11. AUTO SEQUENCE 


THE AUTO SEQUENCE (START AT ADDRESS 240) WILL EXECUTE A 
PREDETERMINED TEST PLAN ON ALL AVAILABLE SLAVES ON EACH 
AVAILABLE TMO3. THE ONLY OPERATOR RESPONSE IS TO THE TYPED 
REQUESTS FOR THE RH ADDRESS, VECTOR, CONTINUOUS OR SINGLE 
CYCLE, AND NRZ ONLY. ALL SWITCHES REMAIN ACTIVE AND MAY BE 
USED NORMALLY; HOWEVER THE IDEA 1S TO LEAVE ALL SWITCHES 
DOWN AND ALLOW FULL EXECUTION OF THE TEST PLAN FOR 

SYSTEM CHECKOUT. 


SAMPLE START AT 240(8): AUTO SEQUENCE. 
LOAD ADDRESS 240(8), SET SWITCHES TO ZERO, PRESS START: 


205 TE16 AUTO SEQUENCE TEST 
ENTER CONDITIONS IN OCTAL 


REGISTER START = 172400(172440) 
224(CR) 


NRZ ONLY: (0) 
AUTO CONT: (1) 


THIS EXAMPLE SHOWS AN AUTO SEQUENCE START WITH THE RH 
AT BUS ADDRESS 172440 AND A VECTOR OF 224. ALL AVAILABLE 
HARDWARE WILL BE TESTED CONTINUOUSLY IN BOTH NRZ AND PE MODE. 


AS EACH TMO3 AND ITS SLAVES ARE FOUND, A DIVIDER LINE OF 
ASTERICKS WILL BE PRINTED FOLLOWED BY A PRINTOUT OF THE 
TMO3 AND ITS SLAVES BEING TESTED. AS EACH TMO3 AND 

ITS SLAVES ARE FINISHED, ANOTHER DIVIDER IS PRINTED 
BEFORE TESTING IS RESUMED ON THE NEXT AVAILABLE DRIVE. 


WHEN ALL AVAILABLE HARDWARE HAS BEEN TESTED, 

A PRINTOUT OF END OF SEQUENCE WILL BE DONE AND THE 
PROGRAM WILL EITHER HALT (AUTO CONT = 0) OR RESTART WITH 
THE FIRST AVAILABLE UNIT (AUTO CONT = 1). 
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AUTO SEQUENCE TEST PLAN: 


THE AUTO SEQUENCE WILL EXECUTE BOTH AN NRZ AND A PE 
CYCLE. EACH CYCLE WILL BE STARTED FROM BOT AND CONSIST 
OF VARIOUS DATA PATTERNS INTENDED TO BE WORST CASE 

FOR THAT PARTICULAR MODE. 
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37 

4 1. WRZ CYCLE: 

40 SIX (6) BLOCKS OF ONE HUNDRED (100) RECORDS 
4) OF FOUR THOUSAND (4000) CHARACTERS FOR 

34 EACH OF THE FOUR DATA PATTERNS. 
ran PATTERN 1: ALL ONES DATA IN ALL BYTES 

5 PATTERN 10: WALKING ONE/ALL ONE 
PATTERN 14: WALKING ZERO/ALL ZERO 


mr 
, a 
No 


RANDOM DATA: RANDOM 
2. PE CYCLE: (IF NRZ ONLY = 0) 


SIX BLOCKS OF ONE HUNDRED (100) RECORDS 
OF FOUR THOUSAND (4000) CHARACTERS EACH FOR 


= 
—-OoO0@ 


WANT 
Nm 


3 EACH OF THREE DATA PATTERNS, THEN RANDOM 
¢ DATA BLOCKS TO END OF TAPE. 
56 PATTERN 10: WALKING ONE/ALL ONE 
57 PATTERN 14: WALKING ZERO/ALL ZERO 
PATTERN 15: THREE (3) O CHARACTERS, TWO (2) ALL CHARACTERS, THREE 0 


THEN COMPLIMENT PATTERN. REPEATED FOR A FULL BUFFER 
RANDOM DATA: RANDOM 


ee ce ee ce ee ed ed ee ed ee ee 
Nm 
cry = 
SOM 
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TESTING PROCEDURES 


AS PREVIOUSLY STATED THIS PROGRAM CONTAINS NO 

FIXED TESTS. THE ENTIRE TEST CYCLE TO BE EXECUTED 

1S DESCRIBED BY THE OPERATOR THOUGH RESPONSES TO 

TELETYPE REQUESTS FOR PARAMETERS AND CONSOLE SWITCH 
SETTINGS FOR OPERATION. THE OPERATION SELECTED WILL 

BE EXECUTED WITH THE PARAMETERS ENTERED CONTINUOUSLY 

ON EACH AVAILABLE UNIT, ONE BLOCK AT A TIME, UNTIL 

STOPPED BY THE OPERATOR. THE OPERATION MAY Be CHANGED 
DYNAMICALLY BY CHANGING THE CONSOLE SWITCHES AT ANY 

TIME. THE PROGRAM WILL ATTEMPT TO PERFORM ANY OPERATION 
SET AND THEREFORE CAUTION SHOULD BE TAKEN TO es THAT 
THE UNIT IS CAPABLE OF PERFORMING AS REQUESTED. FOR 
INSTANCE, ONE SHOULD NOT ATTEMPT TO PERFORM READ OPERATIONS 
ON A TAPE WHICH HAS NOT BEEN WRITTEN AS THE DATA, IF ANY, 
1S UNPREDICTABLE. HOWEVER, IF A TAPE HAS BEEN WRITTEN WITH 
THIS PROGRAM, 11 CAN BE READ AS OFTEN AS DESIRED WITHOUT 
BEING REWRITTEN. THIS IS A GOOD PROCEDURE TO USE FOR 
TESTING TAPE COMPATABILITY. SCOPING OF TAPE UNITS BECOMES 
SIMPLE; BY SETTING THE DESIRED OPERATION AND ITS PARAMETER, 
A UNIT MAY BE CONTINUOUSLY EXERCISED IN ANY MANNER DESIRED. 
BY USING THE VARIOUS ERROR CONTROL SWITCHES AND ENTERING 
THE NEEDED STALL, ANY FUNCTION CAN BE SCOPED RATHER 

EASILY. RELIABILITY TESTING CAN BE PREFORMED BY USE 

OF THE RANDOMIZATION CAPABILITY. PERHAPS A CYCLE OF 

RANDOM TESTING MIGHT BE SET UP AND ALLOWED TO RUN 

FOR SOME PERIOD OF TIME, THE STATISTICAL COLLECTION 

OF DROPS AND PICKS 1S THEN SIGNIFICANT. INTERMITTANT 
PROBLEMS CAN BE FOUND BY SETTING THE DESIRED OPERATION 

IN MOTION AND DISALLOWING ERROR PRINTOUTS WHILE ALLOWING 

A HALT ON ERROR. THE ERROR THAT CAUSED THE HALT CAN 

BE PRINTED BY RESETTING CONSOLE SWITCH TEN AND PRESSING 
CONTINUE. 1F SOME PARTICULAR DATA PATTERN SHOULD BE 
CAUSING DATA ERROR, USE OF THE YOZZLE SWITCH AND ITS 
ASSOCIATED STALL WILL TO ALLOW SCOPING OF THIS 

PARTICULAR RECORD. 


AS YOU SEE, THERE ARE MYRIAD TESTING PROCEDURES WHICH 
COULD BE PERFORMED. THE PARAMETERS, TAPE OPERATIONS, ERROR 
EXAMINATION AND REPORTING ARE ALL AT YOUR DISCRETION. 


TRY IT, YOU'LL LIKE IT. 
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BIN,LOC 
~TITLE CZTEDCO fnOS-e16/1U77 DRT 
sDATA he acai TEST 
; AC-A800C- 
21 FEB 1977 
7J.G.ADAMS 
;REVISED (++#B) J.G.ADAMS MAY 1978 1) INCORRECT RECORD COUNT 
B STORED WHEN EOT REACHED ON WRITE 
2)ADJUST STACK PTR ON BAD TAPE OVFLW 
3)ADDED TU77 TEST CAPABILITY 
4)DOES NOT GENERATE LRC/CRC ON FIRST 
RECORD IN AUTO ACCEPT MODE 


3(44C) M.PAGE FEB 79 

;++C RECORD NUMBERING SYSTEM NOT CONSISTENT 

; 5 BETWEEN FORWARD AND REVERSE TAPE MOVEMEN 
FORMAT ERROR (BIT 4) MADE RETRYABLE 


-MCALL .$ACT11,.S$EOP,SSAVE ,SRESTORE ,SCHAIN 
oth MC 

LIS ME 

"ENABLE ABS AMA 


sCONSOLE SWITCHES*##eeeererere 


:$W15: 1=STOP ON ERROR 
: - Q=CONTINUE ON ERROR 
;SW14: 1=PRINT READ/WRITE STATS 


: 0= DO NOT PRINT STATS 
;SW13: NO — DATA 


;Swi2: CHECK WRITE ERRORS 

; WRITE ERRORS 

;Swil: CHECK READ ERRORS 

; READ ERRORS 

;$wW10: PRINT ERRORS 

; ERRORS 

TAPE 

0= DO NOT REWIND 
1=USE RANDOM DATA 
O=USE FIXED DATA PATTERN 
1=USE RANDOM CHARACTER COUNT 
O=USE FIXED CHAR COUNT 
1=USE RANDOM RECORD COUNT 
O=USE FIXED RECORD COUNT 
1=YO2ZLE ON CURRENT RECORD 
0=D0 NOT YOZZLE 
1=D0 BOTH READ AND WRITE RETRIES 
O=INHIBIT RETRIES 
1=DO0 NOT READ FORWARD 


1=READ FORWARD FIRST 
O=READ REVERSE FIRST 
1=DO NOT WRITE 
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77 OR NOT AVAILABLE USE SOFTWARE SWITCH REGISTER 


SEQ 0031 
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CZTEDC.P11 10-MAY-79 10:32 SEQ 0032 
138 7 TMO3-TE16,TU77 REGISTER BITS#teereenee 
1370 318 ; si5 sté 3 210 :09 ;08 ;07 ;06 ;05 ;04 ;03 ;02 ;01 ;00 ; 
1371 #4900000000000000 0000000000000 000000000300030000000003000500 3000 
aig 3CS1: 3SC ; TRE; sMCP; SPR; DNA; PSL; AN; A16; RDY; IE 7 FUN; FUN; FUN; FUN; FUN; GO ; 
1374 £00000 0005000 TOTTORI IAAI IIT 
1375 swC: ; WORD : 
1376 ; COUNT 3 
1377 OOOQ00000000000000000000 OOOO OOOO 
1378 ;BA: ; BUS 3 
1379 3; ADDRESS 3 
1380 OOOO OOOO 00000 000 OTL TI ITI TTI TIN 
1381 sFC: 3; FRAME 3 
1382 ; COUNT 
1383 BATT HTTTTTTITTTTTTTTTTTTTTTTTTTTRTTRTTTTTTTTTET TERT RITE TT LTET, 
fe 3CS2: :DLT: sWCE; SUPE; NED; NEM; PGE; SXF; sMOP; OR zIR sCLR; PAT; :BAI; :U2 :Ul U0 : 
1386 MTTTRTTITITTTTTETITTTTTETTTRTTTTTITTTOLTTRTTRTELTORTLTT TITRE TIE 
tod 30S: SATA; ERR; sPIP; MOL; sWRL; EOT; : SPR; DPR; sDRY; SSC; sPES; SDN; IDR: EOF; ;BOT; : SLA; 
1389 MTTTTTTTTTTTTITTTTTLTTRETTTLTTTETOTTTRTLTELTTT LT TTTRT LETTE ET 
1390 sER: ;CDE; UNS; OPI;DTE; sNEF ; CS ;FCE; iNSG; PEF; INC;DAT; FMT; CNT; RMR; ILR; ILF; 
1391 CRC; 11M: 3LRC;VPE;BPE; BPE; 
1392 OHO OG IUGONI ROU GQ00 I GDUGOUIGQUIGODGODOGUOTOITIOI 
1393 sATS: : ATTENTION F 
1394 : SUMMARY : 
1395 BUC LELELELOLELOLELEL ELC LLELULULCLEL CULL OL ALO Le LLL LL LLL neds 
1396 3CC: =; CHECK : 
1397 ; CHARACTER 
1398 £0211 XX 0001000000000 0000000000000 
1399 :DB: ; DATA 3 
1400 ; BUFFER 
1401 £00011 0000000000000000 0000000000000 
1402 sMR: :DB :DB :0B :DB 708 :DB :DB 70B :DB ;WRT;MM ;0P ;0P ;0P :0P MM; 
1403 $7:6:33:4643:353:23: 73: 6035 @ sCumsCuk: 4:55 360 ; 
1404 £003000001000000 3900000000030 0100000000000 ATI 
1405 sot: 32 1 2 3 ; i 0 : 7 SPR; : : 3 s%3:@63 1 Atty 75; 45; 
1406 s IPS: IPS; IPS: 
1407 ©9010 00000000000 TOTTI 
1408 3SN: ; SERIAL : 
1409 3; NUMBER 
1410 OOOO OUI IO 0000000000000 0000000000000 0000000 KR 
vet sTC: SACL: FCS; TCW; + 7 SPR; sDEN; DEN; DEN; FMT; SFMT; SFMT; cFMT; EVN; SSN; SSN; SSN; 
4 


4 4 :PAR; 4; 2; 
1413 290000000000 10000011 T DITTO OG OAT 
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000020 
000022 


000034 
000036 


000042 
000046 
000052 


000060 
000062 


000176 


000200 
000204 
000210 
000214 


000224 
000226 


000240 
000244 


000020 
022774 
000340 


000004 


104400 


000040 


000040 


000060 
020734 
000340 


000176 
000900 


000200 
000137 


000204 
000137 


000210 
005037 
000137 


000224 
021160 
000340 


000240 
005237 
000137 


003022 


003136 


014404 
003144 


000734 
003122 
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STRAP CATCHERS #teeeeeeeee 


= 0 
“wORD = TTOUT :SET 101 TRAP TO TTOUT ROUTINE 
“WORD 340 “PRIORITY LEVEL 7 
TyPE= 101 sEQUATE TYPE TO AN IOT INSTRUCTION 
“WORD gctP :SET TRAP TRAP TO OCTP ROUTINE 
TYPOCT=TRAP sEQUATE TYPOCT TO TRAP INSTRUCTION 
sACT11 HOOK *tteeravere 
SSVPC=. :SAVE CURRENT LOCATION CTR 
24 
“wORD 0 
"46 
=WORD SENDAD :SET LOCATION 46 
"woRD 0 :SET LOCATION 52 = 0 
* =SSVPC “RESTORE LOCATION CTR 
Ty INTERRUPT VECTORetteeeeees 
=6 
"wORD = TTINT :TTY INTERRUPT HANDLER ADDRESS 
“WORD 340 “PRIORITY LEVEL 7 


SWREG: 


sSOFTWARE SWITCH REGISTER*#tereeee 
s INVOKED IF SWR <15::00> = 177777 OR NOT AVAILABLE 


-=176 

«WORD 0 

pty ADDRESS tteenrtenne 

JMP START ENTER PARAMETERS VIA TTY 

JMP STARTC ;USE FIXED PARAMETERS; HOLD DATA 
-=210 

CLR ROFL 

JMP STARTA USE FIXED PARAMETERS; NEW DATA 
7MAG TAPE INTERRUPT VECTOReteereneee 

-=224 

oboe 7MAG TAPE INTERRUPT HANDLER ADDRESS 
4 

;AUTO SEQUENCE START#eetreeree 

.=240 

INC ASEQF ;SET AUTO SEQUENCE FLAG 

JMP STAUT ;GO TO START OF AUTO SEQUENCE 


SEQ 0033 
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Pt 24 ;SHORT CONVERSATION RESTART eeeeeree 
1471 000300 -=300 
1472 000300 005237 013444 INC SCVFL ;SET SHORT CONVERSATION FLAG 
eg ty 000304 000137 003022 JMP START sENTER SHORT PARAMETER LIST 
1475 000510 -=510 
pg 3TU16 REGISTER EQUI VStetereeree 
1478 000510 172440 C1: 172440 
1479 000512 172442 wC: 172442 
1480 000514 172444 BA 172444 
1481 000516 172446 FC 172446 
1482 000520 172450 cs 172450 
1483 000522 172452 DS 172452 
1484 000524 172454 ER 172454 
1485 172456 AS 172456 
1486 000530 172460 cc 172460 
1487 000532 172462 dB 172462 
1488 000534 172464 MR 172464 
1489 36 172466 DT 172466 
1490 000540 172470 SN: 172470 
ny 4 000542 172472 TC: 172472 
rene sCONSTANTStteeereeese 
1495 000544 172440 REGS: 172440 °- sSTARTING REGISTER ADDRESS (CS1) 
1496 000546 000224 VECT: 224 sVECTOR ADDRESS (RH INTERRUPT) 
1497 000550 000000 DVN 0 sDRIVE NUMBER 
1498 000552 000000 UDES 0 sUNIT DESCRIP\ ION (PARITY,DENSITY,UNIT, FORMAT) 
1499 000554 000100 RCNT 100 ;RECORD COUNTER 
1500 000556 177400 FMCNT 177400 sNUMBER OF CHAR (4 = 4000) OCTAL <P — COMPLEMENT 
1501 00560 000001 PATRN 1 ;DATA PATTERN SELECTOR (0 = 15) OCT 
1502 000562 000000 RDCMD: 0 ;READ COMMAND 
1503 000564 000001 TMEX 1 : TAPE MARK FLAG: 1=TM O=NO TM 
1504 000566 000000 CRCC 0 7CRC CORRECTION FLAG (YES=1,NO0=0) 
1505 000570 000000 INTRF: 0O INTERCHANGE ‘READ 1=YES 0=NO 
1506 000572 000000 SPFLG: 0 sSINGLE PASS 1=YES O=NO 
1507 000574 000001 RSTAL: 1 ;READ STALL 
1508 000576 000001 WSTAL: 1 sWRITE STALL 
1509 6 000001 TSTAL: 1 ; TURN AROUND STAL 
1510 000602 002000 YSTAL: 2000 sYOZZLE STAL 
1511 000604 000010 RETRY 10 ;READ RETRY NUMBER 
1512 000606 177776 PSwW 177776 ;PROCESSOR STATUS 
1513 000610 177570 SWR 177570 sCONSOLE SWITCHES 
1514 000612 177560 TKS 177560 sTTY READ STATUS REGISTER 
1515 000614 177562 TKB 177562 ;TTY READ BUFFER 
1516 16 177564 TPS 177564 ;TTY PUNCH STATUS REGISTER 
1517 000620 177566 TPB 177566 ;TTY PUNCH OUTPUT REGISTER 
1518 000622 177550 PRS 177550 3H/S READER STATUS REGISTER 
1519 000624 177552 PRB 177552 ;H/S READER BUFFER 
1520 000626 153624 RANBAS: 153624 ;RANDOM NUMBER GENERATOR BASE 
1521 000630 032561 RANSAV: 032561 ;RANDOM NUMBER BUFFER 
1522 000632 000100 RCSAV 100 sRECORD COUNT SAVE 
aes 000634 177400 FCSAvV: 177400 ;FRAME COUNT SAVE 
4 








on 
~~ 


De | 
mmr 


WWWAWN rer 


fun —-o oan 


DEPUTIES SESS SSS 
° at et ee 


- 
uw 


OC.P11 


000740 


DCO TMOS-TE16/TU77 “): 
10-MAY-79 


000000 
000000 


000000 


000000 
000000 
000000 


10:32 


ASEQCF : 


MACY11 30A(1052) 


oOo COCO COOCOCOCOCOOOCOCOOCOCOOCOOCOOCOOOCOOoOOOOoOOoOOoOOoOOoO «CO 


J 3 
10:46 PAGE 35 


sFLAGS AND COUNTERS#tteereeere 


TTY ENTRY FLAG 


TTY OUTPUT BUFFER 
TTY INPUT BUFFER 
; TEMP STORAGE 
; TEMP STORAGE 
; TEMP STORAGE 


sERROR MSG ADDRESS STORAGE 
;BLOCK COUNTER 
ceor FL RECORD COUNTER 


AG 
‘INTERRUPT RETURN STORAGE 
;HEADER FLAG 
: DELAY Ay pees 


;PRINT FLAG 

:MAG TAPE CONT REGISTER BUFFER 
;UNIT TABLE POINTER 

; TAPE MARK FLAG 


:REPEAT COUNTER 
sRETRY COUNTER 

DATA ERROR FLAG 
STATUS ERROR FLAG 
;B1T COUNTER 

RETRY FLAG 

UNIT POINTER SAVE 
;BI1TS DROPPED POINTER 
BITS PICKED POINTER 
ERROR SAVE LOC 

;BAD TAPE FLAG 
STATISTIC PRINT FLAG 
;BAD TAPE POINTER 
sERASE FLAG 


AUTO SEQ FLAG 
AUTO BLCCK COUNTER 
;AUTO SEQ CONTINUOUS FLAG 


SEQ 00355 
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sUNIT ORDER AND DESCRIPTION TABLE **##eeee88 


;THIS TABLE IS LOADED 
:W!ITH UNIT NUMBERS AND 
THEIR DESCRIPTIONS IN 
; THE ORDER THAT THEY 
sWILL BE TESTED 


;UNIT DROPS AND PICKS POINTERS*#eeeeeee 


;UNIT BAD TAPE POINTERS *tteeeenee 


SUNIT WRITE RETRY COUNTER*teereenne 
sSET START OF STATISTICS TABLE 
STTBL: 


CZTEDC.P11—- 10-MAY-79 10:32 
1563 
1564 
1565 “ 
1566 000742 000000 UNI: 0 
1567 000744 000000 UN2: 0 
1568 000746 000000 UN3: 0 
1569 000750 000000 UNG: 0 
1570 000752 000000 UNS: 0 
1571 000754 000000 UN6: 0 
1572 000756 000000 UN7: 0 
1573 000760 000000 UN8: 0 
1574 000762 177777 UNX: =1 
1575 
1576 
1577 
1578 000764 001204 PIK1: BPOO 
1579 000766 001224 PIK2: BP10 
1580 000770 001244 PIK3: BP20 
1581 000772 001264 PIK4:  BP30 
1582 000774 001304 PIKS: BP4O 
1583 000776 001324 PIK6: BPSO 
1584 001000 001344 PIK7:  BP60 
1585 001002 001364 PIK8:  BP70 
1586 001004 001404 DRP1: BD00 
1587 001006 001424 DRP2: BD10 
1588 001010 001444 DRP3: BD20 
1589 001012 001464 DRP4: BD30 
1590 001014 001504 DRPS: BD40 
1591 001016 001524 DRP6: BD5O 
1592 001020 001544 DRP7: BD60 
1593 001022 001564 DRP8: BD70 
159% 
1595 
1596 
1597 001024 001604 BTADDR: BT00 
1598 001026 001710 BT01 
1599 001030 002014 8102 
1600 001032 002120 BT03 
1601 001034 002224 BT04 
1602 001036 002330 BT05 
1603 001040 002434 B106 
1604 001042 002540 BT07 
1605 
1606 
1607 
1608 
1609 001044 TT 
1610 001044 000000 RTY1: 0 
1611 001046 000000 RTy2: 0 
1612 001050 000000 RTY3: 0 
1613 001052 000000 RTY4: 0 
1614 001054 000000 RTY5: 0 
1615 001056 000000 RTY6: 0 
1616 001060 000000 aty?: 0 
1617 001062 000000 RTY8: 0 


SEQ 0036 
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001142 


001144 


001162 


001164 
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000000 


000000 


000000 


000000 
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RDERR1: 


DEREV1: 
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UNIT WRITE ERRORStetereeeee 


ooooo°oo°o 


UNIT READ FORWARD ERRORS*#eeereeee 


oooooe°co 


UNIT DATA ERRORS FORWARD*##teeeeee 


ooooo°c°oo 


;UNIT READ REVERSE ERRORS*teeeeeene 


ooooo°o°o°o 


UNIT DATA ERRORS REVERSE*teteeenes 


ooooo°o°oo 


SEQ 0037 
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TMO3-TE16/TU77 4) MACY11 30A(1052) 10-MAY-79 10:46 PAGE 38 
DC.P11 10-MAY-79 10:32 SEQ 0038 


DROPS + PICKS PER CHANNEL PER UNI T#*eteeeeee 


001204 000000 BPOO: 0 
001224 =.+16 
001224 000000 BP10: y 
001244 =.+16 
001244 000000 BP20: oy 
001264 =.+16 
001264 000000 BP30: 0 
001304 =.+16 
001304 000000 BP4O: 6 
001324 =.+16 
001324 000000 BPSO: 6 
001344 =.+16 
001344 000000 BP60: 0 
001364 =.+16 
001364 000000 BP70: 6 
001404 =.+16 
001404 000000 é BD0C: 0 
001424 =.+16 
001424 000000 BD10: oy 
001444 =.+16 
001444 000000 BD20: oy 
001464 =.+16 
001464 000000 BD30: 0 
001504 =.+16 
001504 000000 BD40: 6 
001524 =.+16 
001524 000000 BDSO: 6 
001544 =.+16 
001544 000000 BD60: 0 
001564 ~=.*16 
001564 000000 BD70: 0 
001604 -=.*16 
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3 


;UNIT BAD TAPE COUNTER:16 PER SLAVEteteneeeee 
001604 000000 BT00: 
001710 000000 BT01: 
002014 000000 BT02: 
002120 000000 BT03: 
002224 000000 BT04: 
002330 000000 BT05: 
002434 000000 BT06: sitnce 


=.#102 
002540 000000 B107: 
002644 ~=.+102 


UNIT END OF TAPE COUNTERS 1 PER SLAVE®*eeeee 


=.+102 
=.4102 
=.4102 
=.4102 
=.4102 


SN NN NNN SN 
RDI et at et et et at ot 


BNO UVESWN—OOOnNOUIFWN—O 
So 
So 
~ 
~ 
~ 
P 
Or Or Or Or Oe Ce CO: CO 


NMmrorrrnr 
0 


002644 000000 EOTCO: 


SHIFRFUNLS 
8S 
mr 
OO 
ww 
Fn 
° 
° 
° 
= 
° 
S 
oooo°ceoo 


002662 000000 
;UNIT READ FORWARD SOFT ERROR*#*#«e8 


ss 


000000 RF SOFT: 


who 
o 
So 
~w 
& 
& 


PTL TT LP rere eee earn nnn: 


ANN 

Sener 

NOWsS 
Mrmr 
ooo 
NN 
nro 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 


0 
0 
0 
0 
0 
0 
0 
0 


AN 
, te 
so 00 
oS 
So 
~m 
“ 
So 
oS 
=] 
=] 
oS 
So 
So 
o 


3 002702 000000 
| [UNIT READ REVERSE SOFT ERROReteeeee 


3 002704 000000 RRSOFT: 
00000 


0 
0 
4 
002714 000000 
0 
0 


Oe ke a ee ee ee ee ee ee a ee ee ed ee ed ed eed ed ed 


Sa aaaanannnwes 


23 


002724 


002742 


002744 


002762 
002764 


002764 


003020 


CZTEDCO Swag 3 we DRT 
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000000 


000000 


000000 


000000 


002764 
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SEQ 0040 
sUNIT READ FORWARD HARD ERROReteeeee 
RFHARD: 0 
0 
0 
0 
0 
0 
0 
0 
sUNIT READ REVERSE HARD ERROR*eteee28 
RRHARD: 0 
0 
0 
0 
0 
0 
0 
:SET END OF STATISTICS TABLE 
ENDTBL: 
:DATA PATTERN GENERATORS tteteeennaee 
DATBL: . sENTRY TABLE 
DATAO: DATO sEXTERNAL INPUT FROM H/S READER(SEE MAINDEC-11-DZTUF ) 
DATA1: DAT1 ;ALL ONES 
DATA2: DAT2 TALL ZEROS 
DATA3: DAT3 ;WALKING ONE 
DATA4: DATS sWALKING ZERO 
DATAS: DATS s ALTERNATING ONE/ZERO 
DATA6: DAT6 ;ALTERNATING ZERO/ONE 
DATA7: DAT7 sALTERNATING ONE/ZERO IN ALTERNATING CHARACTERS 
DATA10: DAT10 sWALKING ONE/ALL ONE IN ALTERNATING CHARACTERS 
DATA11: DAT11 :ALL BITS 0-377 
DATA12: DAT12 ;ALL BITS 377-0 
DATA13: DAT13 ALTERNATING CHARACTERS 0 AND 377 
DATA14: DAT14 : WALKING ZERO/ALL ZERO IN me. }ERNAT Ime CHARACTERS 
DATA15: DAT15 AUTO SEQUENCE PATTERN 0,0,-1,-1.-1,0,0 


siege waa} te Abd “): 
CZT 10-MAY-79 


EOC.P 


09 09 Co 09 Od CD CD CO CD CD 


ROI PRIRIIS POR et et et ot ot a 
VFWNM—OOOnNOUFWN— 


ee ee ed ed et ed ed 


26 


003022 


003034 
003036 


003116 


003122 
003130 
003134 


003136 


003142. 


003144 


003166 


012706 
0 

000000 
005737 


000137 
122737 


000137 


012737 
005037 
000405 


005037 
000442 


005037 


10:32 


000500 
000734 


000042 
000176 
003034 
003062 
000006 
026114 
003034 
000734 


024157 
021226 


000001 
014404 


000636 


000636 
000640 
000074 


000500 


C 4 
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000610 


000041 


000636 


-EVEN 


PRAT eKA KAKA KKH ALARA AAR AKAAAAKeeKeAKeeAeAKeAAt 


; PROGRAM START AND SEQUENCE FORMATTER: 
STHIS ROUTINE IS USED TO PERFORM ALL HOUSEKEEPING, 


DECIDE WHICH TRANSPORT 


TO TEST AND ITS AVAILABILITY, 


LOAD THE WRITE BUFFER WITH THE SELECTED DATA PATTERN, 
;GENERATE ANY RANDOM NUMBER AND THEN EXECUTE 

;THE TEST CYCLE REQUESTED BY THE SWITCH SETTING 

SAT THE END OF THE TEST CYCLE THE NEXT UNIT IS SELECTED 
AND CHECKED + AVAILABILITY AND THE TEST CYCLE 1S 


SEXECUTED ON 


;THE READ WRITE STATS MAY BE PRINTED AT THE END OF 
SEACH TEST CYCLE VIA CONSOLE SWITCH FOURTEEN (14). 


PITSEITTTITISITITTTITITITTTITTTITTT ITT TTT TTT TTT Ltt 


START 200, & 300tteeeeeees 
START: MOV 


#500,SP 
CLR ASEQF 
CLR (PC)+ 
CHNFLG: .WORD 0 
TST a#42 
BEQ 50$ 
MOV #SWREG, SWR 
INC CHNFLG 
JMP 3$ 
50$: 
3$: CMPB 46,084) 
BNE 4$ 
TYPE ,MSG120 
HALT 
4$: TST CHNFLG 
BEQ STAUT 
NC ASEQF 
TYPE ,MSG30 
JMP ASEQ0 


sSTART 240 eeeeeeeeee 

STAUT: MOV #1,TINF 
CLR RDFL 
BR STARTB 


START 204teeererere 
STARTC: CLR . TINF 
BR STARTD 


START 210eeeeeereee 
STARTA: CLR TINE 
STARTB: MOV #STFLG,RO 


MOV WENDFLG- STFLG.RI 


1$: CLRB (RO)+ 
DEC R1 
BNE 


1$ 
MOV #500,SP 


;SET STACK PTR 

;CLEAR AUTO SEQUENCE FLAG 
7;CLEAR CHAIN INDICATOR 
::CHAIN MODE INDICATOR 

31/0 = CHAIN/NOT CHAIN MODE 
;;BRANCH IF IN DUMP MODE 


:: INVOKE SOFTWARE SwWR 

;:SET CHNFLG = CHAIN MODE 

3:G0 TO CHAIN ADDRESS 

;BRANCH IF LOADED VIA TMDP 

;ADVISE USER TO REMOVE TMDP FROM SLAVE 
;SEE IF IN CHAIN MODE 

;SET AUTO SEQUENCE FLAG 


:TYPE TITLE 
:G0 TO AUTO SEQUENCER 


SET TTY ENTRY FLAG 
;CLEAR RANDOM DATA FLAG 


;CLEAR TTY INPUT FLAG 


;CLEAR TTY ENTRY FLAG 
GET STARTING ADDRESS OF FLAGS 


CLEAR FLAGS AND COUNTERS 


SET STACK POINTER 


SEQ 0041 
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1861 003172 004737 004122 JSR PC ,RANSET ;GO RESET RANDOM BASE 

1862 003176 012700 001044 MOV #STTBL,RO ;GET sgget ty ADDRESS OF STAT TABLE 
1863 003202 012701 001720 MOV #ENDTBL~STTBL,R1 AND # OF BYTES IN TABLE 
1864 003206 105020 2$: CLRB (RO)+ ; CLEAR sfATISTIC COUNTERS 
1865 003210 005301 | DEC R1 

1866 003212 001375 BNE 2s 

1867 003214 012700 000742 MOV #UN1,RO ;SET ALL SLAVES ON-LINE 

1868 003220 022710 177777 3$: CMP #-1,(RO) ;BRANCH IF AT END OF TABLE 
1869 003224 001403 BEQ 4$ 

1870 003226 042720 040000 BIC #40000, (RO) + sMARK SLAVE ON-LINE 

1871 003232 000772 BR 3$ 

1872 003234 012737 177777 013652 4$: MOV #-1,PATS ;PRESET PATTERN 

1873 003242 012737 000001 000654 STARTE: MOV #1,BLCNTR ;PRESET BLOCK COUNTER 

1874 003250 013746 000004 STARTD: MOV a#4 ,-(SP) SAVE ERROR TRAP VECTOR 

1875 003254 013746 000006 MOV a#6,-(SP) 

1876 003260 022737 000176 000610 CMP #SWREG, SWR ;BRANCH IF SOFTWARE SWR 

1877 003266 001415 BEQ 2$ sALREADY SELECTED 

1878 003270 012737 003314 000004 MOV #1$,a84 ;SET TIMEOUT TRAP TO 1$ BELOW 
1879 003276 005037 00006 CLR aay 

1880 003302 022777 177777 175300 CMP 177777,aSWR ;BRANCH IF SWR = 177777 TRAP 
1881 003310 001402 BEQ 2$ :1F NOT AVAIL (1%) OTHERWISE 
1882 003312 000404 BR 3$ :G0 TO 3$ 

1883 003314 022626 1$: CMP (SP)+,(SP)+ sRESET STACK 

1884 003316 012737 000176 000610 2%: MOV #SWREG,SWR SET SWR = SOFTWARE SwWR 

1885 003324 012637 000006 3$: MOV (SP)+,a#6 RESTORE ERROR TRAP 

1886 003330 012637 000004 MOV (SP)+,aa4 

1887 003334 012706 000500 MOV #500,SP 

1888 003340 004737 011750 JSR PC,TINP 3G0 GET PARAMETERS FROM TTY 
1889 003344 012777 000040 175146 MOV #40,acs s INITIALIZE 

1890 003352 005000 STAUTO: CLR RO ;POINT TO FIRST ENTRY 

1891 3354 022760 177777 000742 1%: CMP #-1,UN1(RO) BRANCH IF LAST ENTRY 

1892 003362 001406 BEQ 2$ 

1893 003364 042760 100000 000742 BIC #100000,UN1(RO) ;CLEAR EOT FLAG 

1894 003372 062700 000002 ADD #2,R0 ;POINT TO NEXT UNIT ENTRY 
1895 003376 000766 BR 1$ ;CONTINUE CLEARING 

1896 003400 113737 004731 004730 2%: MOVB REOTC+1,REOTC  ;RESTORE EOT COUNTER 

1897 003406 012777 000100 175176 START1: MOV #100,aTKS SET KEYBOARD IE BIT 

1898 003414 013700 000674 MOV UNP ,RO :RO = UNIT TABLE POINTER 

99 003420 022760 177777 000742 STARIA: CMP #-1,UN1(RO) ;BRANCH IF LAST ENTRY 

1900 003426 001404 BEQ STAR1B 

1901 003430 016037 000742 000552 MOV UN1(RO) ,UDES ;LOAD NEXT UNIT DESCRIPTION 
1902 003436 000445 BR STARTS 

1903 003440 005237 000654 STAR1B: INC BLCNTR ;BUMP BLOCK COUNTER 

1904 003444 005737 000734 TST ASEQF ;SEE IF AUTO SEQ 

1905. 003450 001411 BEQ STARIC :1Ff NOT: BR 

1906 003452 023737 000654 000736 CMP BLCNTR,ABLCNT  ;SEE IF DONE SEQ 

1907 003460 001005 BNE STARIC 71F NOT: BR 

1908 003462 005037 000654 CLR BLCNTR ;RESET BLOCK CNTR 

1909 003466 005037 000674 CLR UNP ;RESET UNIT POINTER 

1910 003472 000207 RTS. PC :RETURN TO AUTO SEQ 

1911 003474 005037 000674 STARIC: CLR UNP 

1912 003500 005000 CLR RO 

1913 003502 016037 000742 000552 MOV UN1(RO) ,UDES ;LOAD FIRST UNIT DESCRIPTION 
1914 003510 105777 175074 TSTB aSWR ;SEE IF _RANDOM RECORD SIZE 
1915 003514 100002 BPL START2 ;1F NOT: BR 

1916 003516 004737 011664 JSR PC,CCNTR :60 GENERATE RANDOM RECORD SIZE 
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003522 032777 000400 175060 START2: BIT #400, aSUR SEE If RANDOM DATA 
003530 001402 BEQ STARTS ;1F NOT: BR 
532 004737 014342 JSR PC,DATR G0 GENERATE RANDOM DATA 
36 032777 000100 175044 STARTS: BIT #100,aSuR ;SEE 1F RANDOM RECORD COUNT 
003544 001402 BEQ STARTS 71F NOT: BR 
003546 004737 011724 JSR PC,RCNTR :GO GENERATE RANDOM RECORD COUNT 
003552 032760 140000 000742 START4: BIT #140000,UN1(RO) ;BRANCH IF UNIT AT EOT 
003560 001065 BNE START? :OR MARKED OFF-LINE 
003562 012777 000040 174730 MOV #40,aCS :D0 A MASSBUS CLEAR 
003570 013777 000550 174722 MOV DVN,acs * ;SET DRIVE NUMBER 
003576 013777 000552 174736 MOV UDES,aTc ;SET SLAVE NUMBER 
1928 003604 105777 174712 1$: TSTB ads SEE IF SLAVE AVAIL 
1929 003610 100405 BM1 2$ ;1F SO: BR 
003612 005337 000666 DEC STAL 
003616 001372 BNE 1$ ;AWAIT TUR 
003620 000137 020312 JMP OFFLINE GO MARK DRIVE OFF-LINE 
1933 003624 004737 013472 2$: JSR PC ,DSUP 3;G0 SET UP WRITE DATA 
1934 003630 004737 005236 JSR PC, INIT we INIT SLAVE 
003634 004737 004732 JSR PC ,RWND ; REWIND 
003640 004737 005352 JSR PC WRITE :WRITE 
003644 013737 000600 000666 MOV TSTAL,STAL ;SET TURN AROUND DELAY 
003652 004737 011654 JSR PC, STALL ;DELAY 
003656 004737 007210 JSR PC,RSEQ ;G0 TO READ SEQUENCER 
003662 013737 000600 000666 MOV TSTAL, STAL ;SET TURN AROUND DELAY 
003670 004737 011654 JSR PC, STALL ; DELAY 
003674 032777 040000 174706 BIT #40000 ,aSwR ;SEE IF _SHOULD PRINT STATISTICS 
003702 001414 BEQ START? ;1F NOT: BR 
003704 012700 000001 MOV #1,R0 :SET RECORD COUNTER TO 1 
003710 004737 022012 JSR PC,PAPRT ;PRINT CYCLE NUMBER 
003714 004737 003744 JSR PC,STP 3GO PRINT STATS 
003720 005237 000726 INC BISTF jSET STAT ONLY PRINT 
003724 004737 007126 JSR PC ,STPRT APRINT BAD TAPE STATS 
003730 005037 000726 CLR BISTF ;CLEAR FLAG 
003734 062737 000002 000674 START7: ADD #2,UNP :POINT TO NEXT UNIT 


003742 000621 START8: BR STARTI ; CONTINUE 


aon 
~~ 


003744 


004116 
004120 


004122 
004130 
004136 
004144 
004152 


DCO TMO3S-TE16/TU77 «? 
P11 10-MAY-79 


004737 
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025234 
001064 


025225 
001104 


026001 
002664 


026012 
002724 


025320 
001124 


025155 
001144 


026001 
002704 


026012 
002744 


025307 
001164 


153624 


000634 


MACY11 30A(1052) 
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teeeeeeees SUBROUTINE TO PRINT STATISTICS tteeteeeee 


STP: 


o 
So 


000554 
000556 


000626 RANSET: 
0630 


JSR PC ,DPPRT ;PRINT DROPS AND PICKS 
TYPE ,MSG65 ; TYPE MSG 
MOV UNP ,RO 
MOV RTY1(RO) ,R3 
TYPOC ;PRINT RETRIES 
TYPE ,MSG73 ; TYPE MSG 
MOV WTERI(RO) R35 
TYPOC ;PRINT WRITE ERRORS 
TYPE ,MSG72 ; TYPE MSG 
MOV RDER1(RO) R35 
TYPOCT PRINT READ FORWARD ERRORS 
TYPE ,MSG113 TYPE MSG 
MOV RF SOFT (RO) ,R3 pubes 
TYPOC PRINT FORWARD SOFT ERRORS 
TYPE ,MSG114 TYPE MSG 
MOV RFHARD(RO) ,R3 
TYPOC PRINT HARD FORWARE ERRORS 
TYPE ,MSG77 ; TYPE MSG 
MOV DATER1(RO),R5 
TYPOC PRINT DATA ERROR FORWARD NUMBER 
TYPE ,MSG68 ; TYPE MSG 
MOV RDERR1(RO) ,R3 
YPOC ;PRINT REVESE ERROR NUMBER 
TYPE ,MSG113 ; TYPE MSG 
MOV RRSOFT(RO),R3 
TYPOC PRINT REVERSE SOFT ERROR 
TYPE ,MSG114 TYPE MSG 
MOV RRHARD(RO) ,R3 
TYPOCT 
TYPE ,MSG76 7 TYPE MSG 
MOV DEREV1(RO) ,R3 
TYPOCT PRINT DATA REVERSE ERROR NUMBER 
RTS PC ; RETURN 
RANDOM BASE RESETeetererere 
MOV #1535624,RANBAS ;RESET BASE 
MOV #32561,RANSAV ;RESET BUFFER 
MOV RCSAV,RCNT sRESET RECORD COUNT 
ae can ena RESET FRAME COUNT 
R 


SEQ 0044 





TEDCO Baty bw he od DRT 


CZ 
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004154 


004404 


004410 
004414 


10-MAY=79 10:32 


013777 


000137 


105337 
001410 


000552 
000674 
040000 


000011 
174312 


000007 
000724 


000660 
100000 
000660 
022012 
000002 
025674 
000001 


025527 


023660 
000674 
002644 
002644 


025552 


040000 
174126 
000666 
020312 
004730 


MACY11 30A(1052) 


174360 
000742 
174304 


174270 


000724 
004306 
000724 
004306 


000742 


REOT: 


1$: 


2$: 
3$: 


4$: 


5$: 
6$: 


REOTIC: 


REOTIE: 


REOT2: 


REOT2A: 
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prterrrererererrrrerrerertereeeeteeKeReeerereeeeeAese 


;REWIND FROM EOT: 


;WHEN ANY TRANSPORT BEING TESTED REACHES END OF TAPE 
DURING A READ OR WRITE OPERATION, IT WILL BE REWOUND 

;AND FLAGGED AS UNAVAILABLE UNTIL ALL AVAILABLE UNITS * 
;HAVE REACHED EOT AT WHICH TIME ote TESTING WILL BE RESUMED 


;AT A BLOCK COUNT OF ONE 


(1). A MESSAGE WILL BE 


;PRINTED ON THE a CONSOLE AS EACH UNIT REACHES 


;EOT AND 1S REWOUND 


peerererereeerertereerintterrerenAKeeKeeeReRerereeeeeEee 


MOV UDES,aTC 

UNP ,RO 
BIT aaa 
MOV #11,aC1 

ads 


RPL 1$ 

MOV #7,aC1 

TST BIFLG 
3$ 


MOV EOTREC,RO 
BIC #100000, RO 
CLR EOTR 

JSR PC, PAPRI 
CMP #2,3TFLG 


4% 
MOV i 
CMP #1,BIFLG 
REOTIC 
MOV #4SG106,6$ 


BR REOTIE 

TYPE ,MSG20 

MOV UNP ,R4 

INC EQTCO(R4) 
MOV EOTCO(R4) ,R3 
TYPOCT 
TYPE ,MSG16A 
CLR 


BNE REOT 
TSTB ads 
BM] REOT2A 
DEC STAL 
BNE REOT 


2 
JMP OFFLINE 


DECB REOTC 
BEQ REOTS 


;LOAD TAPE CONTROL REGISTER 
;GET UNIT POINTER 
;BRANCH IF UNIT MARKED OFF-LINE 


DRIVE CLEAR 
WAIT FOR DRY 


START REWIND 
:SEE 1F BAD TAPE OVERFLOW REWIND 
:1F SO: BR 


;SET RECORD NUMBER OF EOT 

;CLEAR EOT INDICATOR & REC COUNT 
:PRINT HEADER 

;SEE IF POSITION ERROR 

;1F NOT: BR 

;SET POSITION ERROR MSG 


SEE IF BAD TAPE OVERFLOW 
SET BAD Tape OVERFLOW MSG 
[TYPE MSG 

“WILL CONTAIN MESSAGE ADDRESS 


; TYPE EOT MSG 
;BUMP CNTR 


;PRINT EOT CNIR 
TYPE MSG 

;CLEAR BAD TAPE FLAG 

PRINT STATS 

;PRINT BAD TAPE STATS 

:GET UNIT POINTER 

;BRANCH IF UNIT MARKED OFF-LINE 


;BRANCH IF DRY SET 


sWAIT DRY 

;GO MARK SLAVE OFFLINE 

;SEE IF LAST UNIT TO REACH EO! 
If SO: BR 


SEQ 0045 
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2052 004416 013700 000674 MOV UNP ,RO 
2053 004422 052760 100000 000742 BIS #100000,UN1(RO) ;SET EOT FLAG 
2054 004430 005726 TST (SP) + ;RESET ate POINTER 
2055 004432 000137 003734 JMP START? ;GO0 TO NEXT UNIT 
2056 004436 113737 004731 004730 REOT3: MOVB REOTC+1,REQTC  ;RESTORE UNITS EOT COUNTER 
2057 004444 005037 000674 CLR UNP 
2058 004450 005000 CLR RO POINT TO FIRST UNIT 
2059 004452 016037 000742 000552 REOT4: MOV UN1(RO) ,UDES ; LOAD a ee 
2060 004460 013777 000552 174054 MOV UDES ,aTC :SELECT SLAVE 
2061 004466 032760 040000 000742 BIT #40000,UN1(RO) ;BRANCH IF UNIT NOT MARKED OFF-LINE 
2062 004474 001412 BEQ 
2063 004476 032777 010000 174016 BIT #10000,a0S ;BRANCH IF MEDIUM NOT ON LINE 
2064 004504 001427 BEQ 10% 
2065 004506 062737 000401 004730 ADD #401 ,REOTC ; INCREMENT # OF UNITS UNDER TEST 
2066 004514 042760 140000 000742 BIC #140000. UN1(RO) ;MARK UNIT BACK ON-LINE 
2067 004522 012777 000011 173760 I$: MOV #11,aCl ;DRIVE CLEAR 
2068 004530 105777 173766 2$: TSTB ads ;WAIT FOR DRIVE READY 
2069 004534 100375 BPL 2$ 
2070 004536 012777 000007 173744 MOV #7,aCl REWIND UNIT 
2071 004544 032777 000002 173750 3%: BIT #2,aDS ;WAIT FOR BOT TO SET 
2072 004552 001774 BEQ 3$ 
2073 004554 032777 020000 173740 4$: BIT #20000,aDS ;WAIT FOR PIP TO CLEAR 
ore 004562 001374 BNE 4$ ;AWAIT PIP RESET 
2076 004564 042760 100000 000742 108: BIC #100000,UN1(RO) ;CLEAR EOT FLAG 
2077 004572 062737 000002 000674 ADD #2,UNP 
2078 004600 013700 000674 MOV UNP ,RO POINT TO NEXT UNIT 
2079 004604 022760 177777 000742 CMP #-1,UN1(RO) ;BRANCH IF NOT LAST UNIT 
2080 004612 001317 BNE REOT4 
2081 004614 005037 000674 REOT7: CLR UNP CLEAR UNIT POINTER 
2082 004620 005037 000636 CLR TINE ;CLEAR TTY INPUT FLAG 
2083 004624 005737 000734 TST ASEQF ;SEE IF AUTO SEQ 
2084 004630 001402 BEQ REOTX :1F NOT: BR 
2085 004632 005726 TST (SP) + TRESET STACK POINTER 
2086 004634 000207 RTS PC RETURN TO AUTO SEQ 
2087 004636 004737 004122 REOTX: JSR PC ,RANSET :GO RESET RANDOM BASE 
2088 004642 012737 177777 013652 MOV #-1,PATS ;PRESET PATTERN 
2089 004650 005037 014404 CLR ROFL. ;CLEAR RANDOM FLAG 
2090 004654 005737 000572 TST BA SEE IF SINGLE PASS 
2091 004660 001421 BEQ OTXX ;1F NOT: BR 
2092 004662 000004 025430 TEND: TYPE, msG100 ; TYPE MSG 
2093 004666 013700 000042 MOV a#42,R0 ;GET ACT11 RETURN ADDRESS 
2094 004672 001405 BEQ HERE ;BRANCH IF NOT ACT11 
2095 004674 000005 RESET 
2096 004676 004710 SENDAD: JSR PC, RO) 
2097 004700 000240 NOP 
2098 004702 000240 NOP 
2099 004704 . 000240 NOP 
2100 004706 000240 HERE: NOP 
2101 004710 005737 003034 TST CHNELG ;BRANCH IF NOT CHAIN MODE 
2102 004714 001402 BEQ 1$ 
2103 004716 000137 021226 JMP ASEQO ;RETURN TO AUTO SEQUENCER 


2 1$: 
2105 004724 000137 003242 REOTXX: JMP STARTE sRESTART AT BLOCK NUMBER ONE 
2106 004730 000000 REOTC: 0O sEOT UNIT COUNTER 


C 
C 


I 
Z 


EDCO TMOS-1 
DC.P11 


004732 


UNM —OOOnGVFSWN $0 DONO Ww —-O0en 
z 
~“ 
w 
~ 


FES BMA MMMM WU NN INNNNNN = & a = OOO 


moO OCOnOu 
So 
oS 
w 
oO 
~“ 
~m 


43 005120 


005206 
005210 


005254 


PPS AMMAMNMAMAMAMS 
me—OOOnNG UV FWN—oO 


E16/TU77 DRT 
10-MAY-79 10:32 


032777 


000737 
013700 


000207 


001000 


000674 


177777 
140000 


000742 
000552 
000011 
000007 
173452 


000666 
020312 
100000 
000002 
000674 
000674 
177777 


000742 
040000 


000552 
020000 


000002 
020312 


000002 
000011 


000714 


000552 


1 4 
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173650 


000714 


004730 
000742 
000742 
000552 


173444 


000742 
000674 


000742 


000552 
000742 


173374 
173346 


173336 
000674 
173302 


000552 
173306 


RWND: 


RWNDA: 


RWNDO: 


1$: 


RWNDIA: 


RWND2: 
RWND3: 


PARAS A SASS S ASR RA LASSE SSSA Rill 


;REWIND ALL AVAIL TAPES: 


;THIS ROUTINE; ENTERED VIA CONSOLE SWITCH NINE (9), 
sWILL REWIND ALL AVAILABLE TAPES TO BOT NO MATTER 
WHERE THEY ARE CURRENTLY POSITIONED AND RESUME TESTING 
;ON THE CURRENTLY SELECTED UNIT. 


seeeerrererereretererererrereeeAAAKeKeeKeKeeAeeeAAeAes 


#1000 ,aSwR 
RWNDA 


PC 
UNP ,UPS 
UNP 


EOTREC 
REOTC+1,REOTC 
NP ,RO 


UNP, 
#-1,UN1(RO) 


RWND2 
#140000 ,UN1 (RO) 
RWNDIA 


UN1(RO) ,UDES 


ite 


RWNCO 
UNP 


UNP ,RO 
#-1,UN1(RO) 
RWNDX 
UN1(RO) ,UDES 


#40000 ,UN1 (RO) 
RWND5 


UDES,aTC 
+ aman 


UPS ,RO 
UN1(RO) ,UDES 
UDES,aTC 

PC 


OFFLINE 
#100000 ,UN1(RO) 
UNP 


;SEE IF SHOULD REWIND 
:1F SO: BR 


sELSE EXIT 

;SAVE UNIT POINTER 
sCLEAR POINTER 

;CLEAR EOT FLAG 

3+4B RESTORE UNIT CTR 
;POINT TO UNIT ENTRY 
;BRANCH IF LAST ENTRY 


BRANCH IF ALREADY REWINDING 
OR MARKED OFF LINE 

SET UNIT DESCRIPTION 

;LOAD COMMAND REGISTER 
sDRIVE CLEAR 

START REWIND 


:1F DRY: BR 


AWAIT DRY 

;GO MARK UNIT OFF LINE 
;cLEAR EOT FLAG 

;BUMP POINTER 


300 NEXT UNIT 


CLEAR POINTER 
POINT TO UNIT ENTRY 
BRANCH IF LAST ENTRY 


SET UNIT DESCRIPTION 
;BRANCH IF UNIT MARKED OFF LINE 


;LOAD UNIT DESCRIPTION 


AWAIT PIP RESET 
;BRANCH IF SLAVE AT BOT 


:PRINT OFFLINE MESSAGE 
;BUMP POINTER 

;ORIVE CLEAR 

;D0 NEXT UNIT 

;RESTORE UNIT POINTER 
RESET UNIT DESCRIPTION 


;RETURN TO TEST 


SEQ 0047 


J 4 
CZTEDCO TMO3-TE16/TU77 DRT MACY11 30A(1052) 10-MAY-79 10:46 PAGE 48 
CZTEDC.P11 10-MAY-79 10:32 SEQ 0048 
2163 
2164 peerereerrerereeerrererereerrerererereeeeeeeeeeeeeeee 
2165 s INITIALIZE SELECTED SALVE 
2166 ;THIS ROUTINE REWINDS AND SETS THE PROPER DENSITY IF 
2167 :THE DENSITY REQUIRED FOR THE TEST IS DIFFERENT FROM 
2168 sTHE DENSITY AT WHICH THE SLAVE IS SELECTED. 
2169 peeerererreeererererrertererereerenereeeeeneeReeeeeee 
2170 
2171 005236 013746 000552 INIT: MOV UDES ,-(SP) :GET UNIT DESCRIPTION 
2172 005242 012777 000040 173250 MOV #40,aCS 7D0 A MASSBUS CLEAR 
2173 005250 013777 000550 173242. MOV DVN,acs ;LOAD DRIVE # 
2174 005256 011677 173260 MOV (SP) ,aTC ;LOAD SLAVE # & SLAVE DESCRIPTION 
2175 005262 042716 174377 BIC #174377, (SP) ;CLEAR ALL BUT DENSITY BITS 
2176 005266 022726 001400 CMP #1400, (SP)+ ;BRANCH IF NOT NRZ 
2177 005272 001005 BNE 1$ 
2178 005274 032777 000040 173220 BIT #40,a0S ;BRANCH IF SLAVE IS IN PE MODE 
2179 005302 001422 BEQ 4$ ;PES = 0 
2180 005304 000404 BR 23 
2181 005306 032777 000040 173206 1%: BIT #40,aDS ;BRANCH IF SLAVE IS IN PE MODE 
2182 005314 001015 BNE 4$ :PES = 1 
2183 005316 012777 000007 173164 2%: MOV #7,aC1 ;LOAD REWIND COMMAND 
2184 005324 105777 173172 208: TSTB ads ;WAIT FOR READY 
2185 005330 100375 BPL 208 
2186 005332 032777 020000 173162 38: BIT #20000,a0S sWAIT FOR PIP = 0 
2187 005340 001374 BNE 3$ 
2188 005342 012777 000011 173140 MOV #11,aC1 ;CLEAR DRIVE 
2189 005350 000207 4$: RTS PC 


wo 


K 4 
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C 
C.P 10-MAY-79 10:32 SEQ 0049 
peeeereererreererrrererrrerrereeeeeeeeeeeeeeeeeeee eee 
; ;WRITE ROUTINE: 
3 STHIS ROUTINE 1S USED TO WRITE ONTO TAPE THE BLOCK 
4 OF DATA DESCRIBED BY THE OPERATOR AND SET UP 
5 IN THE SEQUENCE FORMATTER. THE TAPE UNIT TO BE USED 
6 HAS BEEN ASSIGNED BY THE SEQUENCE A ety AND 
7 :1TS PARAMETERS SET IN A UNIT DESCRIPTION WORD. 
[AS EACH RECORD OF THE BLOCK 1S WRITTEN, iT 1S CHECKED 
:FOR STATUS ERRORS, WORD COUNT ZERO, AND CORRECT CURRENT 
:MEMOR' ADDRESS. IF THE WRITE OPERATION RESULTS IN 
2201 Y ERROR CONDITION, A WRITE RETRY OF THAT OPERATION 
2202 MAY BE DONE BY SETTING SWITCH FOUR (4) TO A ONE (1). 
2203 : THE RETRY CONSISTS OF A BACKSPACE, ERASE FORWARD, AND 
2204 REWRITE OF THE RECORD. (SEE WRITE RETRY SUBROUTINE) 
2205 AFTER ALL DATA RECORDS IN THE BLOCK HAVE BEEN 
2206 SWRITTEN, THE WRITE ROUTINE WILL EXECUTE A WRITE 
2207 ; TAPE MARK COMMAND IF THE TTY RESPONSE TM=1 WAS 
2208 MADE AT INITIAL START. THE TM 1S COUNTED AS TOTAL 
2209 DATA RECORDS PLUS ONE (IE: IF 100 DATA RECORDS; TM=RECORD 101) 
2210 ;1F THE WRITE OPERATION (DATA OR TM) CAUSES THE SELECTED SLAVE 
2211 :10 REACH END OF TAPE (EOT) AND THERE IS TO BE NO READING DONE, 
2212 7(SW2 AND SW3 SET TO A 1) THEN THE SLAVE IS REWOUND AND 
2213 FLAGGED AS UNAVAILABLE FOR TESTING UNTIL ALL SLAVES HAVE 
2214 REACHED EOT AND BEEN REWOUND AT WHICH TIME TESTING IS 
2215 : RESUMED ON ALL AVAILABLE SLAVES. 
2216 WRITE RETRY MAY BE ALLOWED VIA CONSOLE SWITCH FOUR (4). 
2217 ERROR CHECKING MAY BE DISALLOWED VIA CONSOLE SWITCH 
2218 s TWELVE (12). 
33M sMRITING T TO TAPE MAY BE DISALLOWED VIA CONSOLE SWITCH 
2221 Wreerrrrtititiititiiititiitiiiiii iii it titi iti 
2223 005352 032777 000001 173230 WRITE: BIT #1,aSWR ;SEE IF SHOULD WRITE 
2224 005360 001402 BEQ WRTE 
2225 005362 000137 006132 JMP WEX :1F NOT: BR 
2226 005366 013700 000554 WRTE: MOV RCNT,RO :RO=RECORD COUNT 
2227 005372 012737 023546 000652 wO0: MOV #MSG5 ,EMADDR ;SET ERROR MSG ADDRESS 
2228 005400 013777 000556 173110 MOV FMCNT ,aFC LOAD CHAR COUNT 
2229 005406 012777 026344 173100 MOV #WDATA,aBA SET DATA ADDR 
005414 112737 000060 000672 MOVB #60,MTC1 ;SET WRITE OP COMMAND 
2231 005422 012737 005434 000662 MOV #wi ,RTRN ;SET RETURN ADDRESS 
2232 005430 000137 020372 JMP TAPG 360 EXECUTE COMMAND 
2233 005434 032777 002000 173060 wi: BIT #2000,aDS sSEE IF EOT 
005442 001412 BEQ 1$ :1f NOT AT EOT: BR 
2235 005444 005737 000660 TST EOTREC BRANCH IF WRITTEN PAST EOT 
005450 i00407 BMI 1$ 
2237 005452 005300 DEC RO ;ADJUST # OF RECORDS WRITTEN 
2238 005454 052700 100000 BIS #100000 ,RO ;SET EOT INDICATOR 
2239 005460 010037 000660 MOV RO,EOTREC :SAVE RECORD COUNT 
2240 005464 012700 000002 MOV #2,R0 SET TO WRITE 1 LAST RECORD 
2241 005470 032777 010000 173112 18: BIT #10000 ,aSswR SEE 1F SHOULD CHECK ERRORS 
2242 005476 001002 BNE 2% :1f NOT: BR 
2243 005500 004737 016522 JSR PC ,ERCHK G0 CHECK ERRORS 
2244 005504 013737 000576 000666 2%: MOV WSTAL,STAL SET DELAY 
2245 005512 004737 011654 JSR PC,STALL ; DELAY 


CZTEDCO TMO3S-TE16/TU77 DRT 


CZTEDC.P11 
005516 


006040 


10-MAY-79 10:32 
005737 000712 


000706 
000674 


000020 


000722 
102720 


022012 
025331 
010754 
000674 
001044 
002000 


025101 


000712 


000564 
000676 


010000 
000004 
026344 


026344 
016614 
000712 


000706 
000674 


001064 
000020 


MACY11 


173032 


172762 


000652 
000672 


172574 
000662 


172650 
172552 


020224 
020232 


172550 


30A(1052) 


3$: 


W4: 


WGA: 


w5: 


W6: 


WIM: 


WTMO: 


WTM1: 
WIM2: 


WTM3: 


10-MAY-79 
TST RTYFL 
BEQ 3$ 
RTS PC 
TST SERFL 
BEQ w5 
MOV 


UNP ,R4 
INC WTER1(R4) 
SERFL 
BIT #20, aSWR 
W5 


MOV ERSAV,R3 
BIC #102720,R3 
BEQ we 

JSR PC, PAPRT 
TYPE ,MSG78 

JSR PC,NRTP 

BR W5 


MOV UNP ,R4 

INC RTY1(R4) 

BIT #2000,aSwWR 
Wad 


BNE 
TYPE ,MSG64 
CLR CNT 


JSR PC ,WRTY 

CLR RTYFL 

DEC RO 

BNE w0 

TST TMEX 

BEQ WEX 

INC TMFLG 

MOV #MSG54,,EMADDR 
MOV #26,MTC1 


arc 
MOV #WDATA,@BA 
MOV #WTMO,RTRN 


TAPG 

BIT #10000 ,aswR 
WEX 

BIT #4,aDS 
Wim 

MOV #WDATA,CADER 


BR M 

MOV #WDATA,RS 
JSR PC,E 

TST RTYFL 

BEQ WTM3 

RTS PC 

TST SERFL 

BEQ WEX 

MOV 


UNP ,R4 
INC WIER1 (RG) 
BIT #20,aSWR 
WEX 


L 4 
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‘7 IF RETRY TIME 
OT: a 


‘ELse RETUR 
; SEE If unite ERROR 
NOT: BR 


;BUMP WRITE ERROR 

7 CLEAR aie ERROR FLAG 
SEE IF RETR 

:1F NOT: 


;MASK UNRECOVERABLE ERROR 
:1F SO: BR 

:PRINT HEADER 

TYPE MSG 

:PRINT ER FOR NON-RETRYABLE 


;BUMP RETRY CNTR 

;SEE IF PRINT ERRORS 
:1F NOT: BR 

: TYPE MSG 

;CLEAR RETRY NUMBER 
;CLEAR REPEAT COUNTER 
;GO RETRY WRITE ERROR 
;CLEAR RETRY COUNTER 
;SEE IF _DONE ALL 


M FLAG 
;POINT 10. TM ERROR MSG 
;SET TM OP CODE 
;LOAD FRAME COUNTER 
;LOAD BUS ADDRESS 
SAVE RETURN ADDRESS 
WRITE 1M 
SEE IF SHOULD CHECK ERRORS 


;SEE IF TM STATUS 
;1F SO: B 


:SET EXPT BUS ADDRESS 
“INDICATE ERROR 
“PRINT TM ERROR 


SET EXPT ADDRESS 

GO CHECK 4 a OTHER ERRORS 
SEE IF RETR 

:1F NOT: BR 

ZELSE RETURN TO RETRY ROUTINE 
;SEE 1F WRITE ERROR 

:1F NOT: BR 


;BUMP WRITE ERROR 
;SEE 1F SHOULD RETRY 
;1f NOT: BR 


SEQ 0050 


3S 


et et ot 4 he pepe ppp pepe perpen! 


A 4 
” Ps pte Ati A DRT MACY11 30A(1052) 10-MAY-79 10:46 PAGE 51 


RII et et et nt ot ot ot 
~m 


10-MAY=79 10:32 SEQ 0051 

2 006042 013703 000722 MOV ERSAV,R3 

3 006046 042703 102720 BIC #10 02720, R3 ;MASK UNRECOVERABLE ERROR 
304 006052 001407 BEQ Wim 

§ 006054 004737 022012 JSR PC, PAPRI “PRINT HEADER 
06 006060 000004 025331 TYPE, MSG78 STYPE MSG 

7 006064 004737 010754 JSR PC,NRTP ‘PRINT ER FOR NON-RETRYABLE 

8B 006070 000420 aR WE Xx 

9 006072 005037 000700 WIMG: CLR RPCNT SCLEAR REPEAT CNTR 

0 006076 013704 000674 MOV UNP,R4 

1 006102 005264 001044 INC RIVA (RA) :BUMP RETRY CNTR 

2 006106 005037 000702 CLR [CLEAR RETRY CNTR 

3 006112 032777 002000 172470 BIT #2000, aswR 'SEE IF PRINT ERRORS 

4 006120 001002 BNE ‘IF NOT: BR 

§ 006122 000004 025101 TYPE, msces [TYPE MSG 

6 006126 004737 006166 WIMGA: JSR PC,WRTY :G0 DO RETRY 

7 006132 005037 000712 WEX: CER RTYFL [CLEAR RETRY FLAG 

8 006136 005037 000676 CLR TMFLG :CLEAR TAPE MARK FLAG 

9 006142 005737 000660 TST EOTREC ‘BRANCH IF NOT AT EOT 

0 006146 100006 BPL WRWX 

1 006150 032777 000014 172432 wRw: BIT #14,aSWR :BRANCH IF EITHER READ ENABLED 

006156 001002 BNE WRWXx 
006160 000137 004154 JMP REOT SELSE REWIND 
24 006164 000207 WRWX: RTS PC TEXIT 


Ay pet eped a tes gad 
WFWNM—O0Onou “ 


Mronrnrnnrnnrnrn ~~ 
PPI LY frre tte et ee ee RBS 
AEUNISSOGS 


WW IL Lt ye Cee ee Ut Ge Gs ot Gn Ce OO 
SERENA RES ta £333 23 PPR S TELS Ses 


POPEPENaMeNofononseNlofolNofyefferofnrnrwr 
oo~ 


s 


P11 


006166 
006174 
006200 


012737 


DCO TMO3S-TE16/TU77 DRT 
10-MAY-79 10:32 


000001 
006554 
000676 
005372 


005672 
000706 


000700 
000004 


002000 
025514 


025123 
000702 


000722 
000650 
102720 


022012 


000001 
002000 
025724 
025123 
000702 


025746 
000700 


000650 
000650 
000702 


So F 


1722 
0007 


MACY11 


000712 


000700 
172340 


000650 


172246 


000730 


10-MAY-79 


N 4 
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,eeteeererererererreretere 


;WRITE ERROR RETRY 


‘ eeececcccececeeeceececes 


MOV #1, RTYFL 
JSR whe 


JSR PCW 
BR WRTYR 
JSR PC, WIM 
TST SERF 
BNE WRTY2 
INC RPCNT 


Tyv0 
BIT #2000, ,@SWR 


BNE 

TYPE ,MSG105 
TYPE ,MSG65 

RTCNT RS 


C 
MOV ERSAV,R3 
TEMPS 
BIC AL iat RS 
JSR PC,PAPRT 
TYPE ,MSG78 
JSR PC,.NRTP 


MOV #1, TEMPS 
BR 


WRTY2B 
: BIT #2000 ,aSwR 


BNE WRTYS 
TYPE ,MSG110 
TYPE ,MSG65 
RTCNT,R3 

TYPOCT 
TYPE ,MSG111 
MOV RPCNT,RS 
TYPOCT 
TST TEMPS 
BEQ WRTYS 
CLR TEMPS 

TS PC 

TST RTCNT 
BNE WRTY3A 
MOV N 


UNP ,R4 
DEC WTER1(R4) 


UNP ,R4 
MOV BTADDR(R4) ,BTPT 
PT,R4 


SET RETRY FLAG 
3GO SPACE REVERSE FOR REPEAT 
+SEE If TAPE MARK TIME 


O: BR 
TREWRITE RECORD 
G0 ON 
3GO WRITE TAPE MARK AGAIN 
s REWRITE GOOD 


;1F NOT: BR 

; BUMP REPEAT COUNTER 

SEE IF FOUR GOOD REPEATS 
71 NOT: REPEAT 

:SEE IF PRINT 

;1F NOT: BR 

TYPE MSG 

TYPE MSG 


PRINT RETRY NUMBER 

RESUME TESTING 

;GET ER 

;CLEAR RECOVERABLE ERROR INDICATOR 
MASK RECOVERABLE BITS 

;1f RECOVERABLE: BR 

;PRINT HEADER 

TYPE MSG 
PRINT ER 

;SET FLAG 


7 SEE . PRINT 

;1F NOT: BR 

; TYPE MSG 

TYPE MSG 
;PRINT RETRY NUMBER 
; TYPE MSG 


;PRINT REPEAT NUMBER 
gore ats fh NON~RECOVERABLE 


: CLEAR FLAG : 
[SEE IF FIRST RETRY 

:1F NOT: BR 

:DECREMENT WRITE ERROR CNTR 


GET UNIT NUMBER 
sot ADDRESS OF UNIT BAD TAPE CNTR 


:GET C 
SET POINTER OFFSET 


CZTEDCO TROS-TE16/TU77 DRT 
CZTEDC.P11 


Bee 


MMP P PPP ne rene referer 


Ww WWAAIWIW 
SSSSSSSSESSSSSS 


2397 


006456 
60 


006770 


10-MAY- 


79 10:32 


000654 
000040 
000554 
000040 
006772 
000702 
000004 


000674 


007176 


000706 


000706 
000002 


004154 
000732 


000732 


000706 


MACY11 30A(1052) 


172222 


000702 


000666 
000652 
171710 


000672 
000662 


000724 


000652 
000672 


000662 


WRTY4: 


WRTYS: 


WRTSB: 


1$: 


WRTSBO: 


WRTSB1: 


WRTSB2: 


1$: 
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ADD R3,R4 ;SET ABSOLUTE POINTER 
MOV BLCNTR, (R4) ;SET BLOCK NUMBER 
ADD #40,R4 ;ADD RCNT OFFSET 


MOV RCNT, (R4) 


SUB RO, (R4) SET RECORD NUMBER 


INC (R4) ;CORRECT RECORD NUMBER 

CMP #40 ,aBTPT :SEE IF TOO MANY BAD SPOTS 
BNE RTY4 :1F NOT: BR 

JMP BTOV ELSE GO TO BAD TAPE OVERFLOW 
INC RTCNT :BUMP RETRY COUNTER 

CMP #4 ,RICNT :SEE IF DONE 4 RETRIES 

BEQ WRTYS :1F SO: BR 

MOV UNP ,R4 

INC RTY1(R4) ;BUMP RETRY COUNTER 

INC ERTFL SET ERASE FLAG 

JMP wRTYO D0 NEXT RETRY 

JMP BTUR sELSE GO TO BAD TAPE UNRECOVERABLE 
WRITE RETRY BACKSPACE-ERASE SUBROUTINE *##eeeeeee 
CLR SERFL CLEAR FLAG 

MOV TSTAL,STAL 

JSR PC, STALL ;D0 TURN AROUND DELAY 

MOV #ASG66,EMADDR ;SET ERROR CODE 

MOV #-1,aFC :SET TO BACKSPACE 1 RECORD 
MOV #RDATA,R3 ;SET EXPECTED BA 

MOV R3,aBA 

MOV #32,MTC1 ;SET BACK SPACE OP CODE 
MOV #1$,RTRN SET RETURN PC 

JMP TAPG sEXECUTE BACKSPACE COMMAND 
JSR PC,ER2 CHECK ERRORS 

JSR PC,STALL 7 STALL 

TST SERFL ;SEE IF ERROR 

BEQ WRTSB1 ;1F NOT: BR 

MOV #2,BTFLG :SET FLAG 

CMP (SP)+, (SP)+ sRESET STACK 

JMP REOT 3GO REWIND AND REMOVE FROM TESTING 
TST ERTFL ;SEE IF SHOULD ERASE 

BNE WRTSB2 :1F SO: BR 

RTS PC ;RETURN 

CLR ERTFL ;CLEAR ERASE FLAG 

CLR RPCNT ;CLEAR REPEAT CNTR 

CLR SERFL ;CLEAR FLAG 

MOV WMSG67,EMADDR ;SET ERROR CODE 

CLR arc ;CLEAR FRAME COUNT 

MOV #24 ,MTC1 :SET ERASE OP-CODE 

MOV #WOATA,R3 ;SET EXPECTED BA 

MOV R3,aBA 

MOV #1$,RTRN ;SET RETURN ADDRESS 

JMP TAPG :G0 ERASE 

JSR PC,ER2 GO CHECK ERRORS 

TST SERFL SEE IF ERROR 

BEQ WRTSB1 :1F NOT: BR 

BR WRTSBO 


;BAD TAPE OVERFLOW SUBROUTINE t#eteeeene 


SEQ 0053 


CZTEDCO tty a Aad «? 
CZTEDC.P11 10:32 


007124 


10-MAY-79 


005037 


000207 


000712 
000001 


004154 
000730 


023610 


023615 
000040 
000040 
171640 
024155 
000726 


000041 
000730 


000724 


- MACY11 30A(1052) 


BTOV: 


BTOVO: 


BTOV1: 


BTOv2: 


BTOv3: 


BIOVX: 


10-MAY-79 
CLR FL 
Ov #1, BIFLG 
TST (SP)+¢ 
JMP REOT 
MOV BIPT,R1 
TST (R1)¢ 
CLR 0 
MOV RO,R3 
CLC 
ROR 
TYPOCT 
TYPE ,MSG1341 
MOV (R1),R3 
TYPOCT 
TYPE ,MSG14 
ADD #40,R1 
Vv (RI), R3 
TYPOCT 
SUB #40,R1 
TST (RO)+ 
CMP RO,aBTPT 
BEQ BTOv2 
TYPE ,MSG28 
BR BTOv1 
TST BISTF 
BNE BTOvX 
MOV #41,R3 
MOV BIPT,R4& 
CLR (R4)+ 
DEC R3 
BNE BTOv3 
RTS PC 


a. 
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s TYPE 


MSG 
;SET POINTER OFFSET FOR RECOED NUMBER 


;PRINT RECORD NUMBER 
RESET POINTER FOR BLOCK NUMBER 


CLEAR RETRY FLAG 
;SET BAD TAPE OVERFLOW FLAG 

3+¢+B ADJUST STACK PTR 

;GO REWIND AND REMOVE FROM TESTING 
;SET TABLE POINTER 


;SEE IF DONE 
BR 


1F $0: 


sTYPE "<CR><LF>' 


UE 
;SEE IF STAT ONLY PRINT 


:1F SO: 


: BR 
:SET SIZE OF TABLE 


:SET POINTER 
> CLEAR TABLE 
;SEE IF DONE 
s1F NOT: BR 


; RETURN 


;R3=R3/2 FOR CORRECT NUMBER 
PRINT ENTRY NUM 
TYPE MSG 


;PRINT BLOCK NUMBER 


BER 


SEQ 0054 


CZTEDCO TMO3-TE16/TU77 4? 
CZTEDC.P11 


007166 
007170 
007172 


007176 
007202 
007206 


10-MAY-79 


000004 


000137 


004737 
000004 
000207 


10:32 


024155 


022012 
025613 


MACY11 


000730 


dD 5 
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;BAD TAPE STATISTIC PRINTeeeeeeee 
BIPRT: ie S628 sTYPE "<CR><LF>' 


UNP ,R4 
MOV BTADDR(R4),BTPT ;SET TABLE POINTER 
ne! @BIPT,RS 
L 
ROR R3 + CORRECT NUMBER 
TYPOCT PRINT NUMBER OF BAD SPOTS 
TYPE ,MSG112 TYPE MSG 
TST aBIPT :SEE IF ANY BAD SPOTS 
BNE BIPRTI :1F $0: BR 
RTS PC ELSE RETURN 
BIPRT1: JMP BTOvO PRINT STATS 
;BAD TAPE UNRECOVERABLE SUBROUTINE ®**#teeeee 
BIUR: ‘JSR PC,PAPRT el HEADER 
TYPE ,MSG107 TYPE MSG 
Ds RTS PC RESUME TESTING 
- 


SEQ 0055 


CZTEDCO tig Phe od | 
(ZT 11 10:32 


EOC.P 


007210 


007336 
007340 


007440 


10-MAY-79 


005037 


000442 
012737 


000562 
171370 
177763 
000002 
000004 
000001 
007464 
000010 
000562 


000600 
011654 


000001 


011402 
000562 


007464 


000001 
000010 


000001 
011402 


000004 
000562 
000600 


007464 


MACY11 30A(1052) 


171354 
171344 
000562 
171322 


000666 


171270 


000562 
171234 


171224 


171200 


000666 
000562 


RSEQ: 


RSR: 


RSF: 


RSFO: 


RSF1: 


RSFR: 


RSFRO: 
RSFR1: 


RSFR2: 


10-MAY-79 


Ee 5 
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SERRE ERE K TTT ET EET A TEAR AAKAAAAA AHA KKAAT ATES 


;READ SEQUENCER: 


;THIS ROUTINE IS USED TO DETERMINE THE SEQUENCE 

;1N WHICH READ TAPE OPERATIONS ARE TO BE PERFORMED. 
THIS IS NECESSARY WHEN THE UNIT BEING TESTED IS 
:CAPABLE OF READING DATA IN BOTH THE FORWARD AND 


REVERSE DIRECTIONS. 


CONSOLE SWITCHES ONE (1), 


TWO (2), 


SAND THREE (3) ARE USED TO DETERMINE THE READ SEQUENCE . 
sCONSOLE SWITCH ONE (1) DETERMINES WHETHER TO READ 

THE BLOCK OF DATA FORWARD FIRST OR REVERSE FIRST. 
SWITCH TWO (2) DISALLOWS READING IN THE REVERSE 
:DIRECTION AND SWITCH THREE (3) DISALLOWS READING IN 


; THE FORWARD DIRECTION. 


Leeteteretenrettrttrrteretereeeneeeeeereeeeteeneeeees 


RDCMD 

QSWR,R4S 
#177763,R4 
RS 


R 
TSTAL,STAL 


#10, aSWR 


2 
TSTAL,STAL 
PC, STALL 
#1,ROCMD 
PC READ 


;SEE IF 


;READ SWITCHES 

SASK READ BITS & SEE IF BOTH READS 
SEE IF READ REVERSE FIRST 

:1F NOT: BR 


SEE TF — READ REVERSE 
; LOAD pr ag Rn bs ge COMMAND 


GO READ R 
;SEE IF SHOULD READ FORWARD 


;1F NOT: BR 
HAVE READ REVERSE 
i BR 


F NOT: 


;D0 READ STALL 


SEE IF WRITE 
;1F NOT: BR 
:GO BACKSPACE 


;LOAD READ FORWARD COMMAND 


G0 READ 
G0 TO EXIT 


;SEE IF SHOULD READ FORWARD 
;1F NOT: BR 
:SEE IF WRITE 


NOT: BR 
:60 BACKSPACE TO START 
sLOAD READ FORWARD COMMAND 
:GO0 READ FORWARD 
;SEE IF SHOULD READ REVERSE 
F NOT: BR 


c1F READ REVERSE: BR 
;D0 READ STALL 


;LOAD READ REVERSE 
3;GO READ REVERSE 


SEQ 0056 


CZTEDCO aig 3 A | ot 
CZTEDC.P11 


007444 
0 


007462 


10-MAY-79 
005037 


000207 


10:32 


000562 
000660 


004154 


MACY11 30A(1052) 


RSEX: 


RSFRX: 


10-MAY-79 10:46 


ROCMD 
EOTREC 
RSFRX 
REOT 
PC 


ye. 
PAGE 


57 


;BRANCH IF EOT NOT REACHED 


+} AND REPORT STATS 
x 


SEQ 0057 


Shieh ma -TE16/TU77 DRT 
CZT 10-MAY-79 10:32 


EOC.P 


007464 


013700 


000403 


000554 
000660 


000562 
100000 
000660 


023553 
000676 
000562 
000564 
000676 
000556 
032352 
000562 
000556 


000020 


170666 
000076 


MACY11 30A(1052) 


000660 


000652 


000552 


000672 


READ: 


RDA: 


RDO: 


RDI: 


10-MAY-79 


6 5 
10:46 PAGE 58 


peeeeeerereerereereerereeereeeeeeenerereeeeeeeeeeeeee 


;READ ROUTINE: 


THIS ROUTINE PERFORMS THE READ OPERATION DETERMINED 
:BY THE READ SEQUENCE ROUTINE ONE RECORD AT A TIME. 
:AT THE END OF EACH READ OPERATION THE STATUS REGISTER 


:1F EOT WAS REACHED, C 


; THE EOT SUBROUTINE TO REWIND THE UNIT AND FLAG IT 
SUNAVAILABLE UNTIL ALL UNITS HAVE REACHED EOT. 

:1F BOT WAS REACHED AN ERROR IS PRINTED AND THE 
PROGRAM WILL HALT. T 
THE CONTINUE SWITCH. 


iF 


ESTING MAY BE RESUMED BY PRESSING 


A TAPE MARK IS EXPECTED (TM=1) THEN THE 


READ ROUTINE EXPECTS THE FIRST RECORD OF A 

;READ REVERSE TO BE A TM, AND THE LAST RECORD 

:;OF A READ FORWARD TO BE A TM. REMEMBER 

>THAT THE TM ADDS ONE (1) TO THE TOTAL NUMBER 

OF RECORDS IN A BLOCK. 

sCONSOLE SWITCHES ELEVEN (11) AND THIRTEEN (13) DETERMINE WHETHER 
;OR NOT TO CHECK FOR STATUS ERRORS (11) OR DATA ERRORS (13), 
sCONSOLE SWITCH FIVE (5) IS USED TO CAUSE A CONTINUOUS 

READ AND SPACE (FORWARD OR REVERSE) OF THE CURRENT 

RECORD ON TAPE (YOZZLE). 


;eeeererereerterrerereretereeteeKeeeKeeKereeAtaeeKeeeeee 


RCNT,RO 


4100000, EOTREC 
EOTREC,R3 


RO 
#ASG6,EMADDR 
TMFLG 


R 

FACNT ,aFC 
#RDATA,@BA 
ROCMD 


RDIA 
eect AS 
#20,UDES 
RD1 

R3 
R3,aBA 


#76,M1C1 
RD1B 


LOAD REC CNTR 

: EE IF EOT 

;1F NOT: BR 

:SEE IF READ FORWARD 

:1F SO: BR 

:CLEAR FLAG 

3GET MODIFIED RECORD COUNT 
:SET RECORD AT 


;SET TO PROPER NUMBER OF RECORDS 
;SET ERROR MSG ADDRESS 


71 READ FORWARD: BR 
;SEE IF TM 

:1f NOT: BR 

sSET TM FLAG 


;LOAD CHAR CNTR 
;LOAD DATA ADDR 

SEE IF READ REVERSE 
:1F NOT: BR 


;SEE IF CORE DUMP 

; NOT: BR 

:R3 = FC/2 

;SET REVERSE BUS ADDRESS 
;SET READ REVERSE 


SEQ 0058 


CZTEDCO TMO3S-TE16/TU77 DRT 
10-MAY-79 10:32 


CZTEDC.P11 


2611 007634 
0 


ee te ss ss St ss 
loleleolelelelelelojojojejoj=) 


Nm 

o 

w 

oOo 
Soooooooooooooe°ce3eo 
ae se as os HY 


oo 
oo 
ons 
MSM 


pb EA et a bee > 4 
SfOoone £oOnNoe 


012737 


001416 


000070 


000562 
002000 
000676 
000660 
100000 
000002 


022012 
023713 


003144 
004000 


000676 
000004 
032352 
000002 
017352 
000674 
000562 
001144 
001104 


032352 
000562 


002000 
000002 
000556 
000020 


000001 
002000 


000002 
016614 


016522 
000706 


MACY11 30A(1052) 


000672 
000662 


170630 


000660 


170600 


170640 


170534 


020224 
020232 


000552 


000552 


000552 


RDIA: 
RD1B: 


RD2: 


RD3: 


RD4: 


1$: 
RDGA: 


RDGAO: 


RDGAI: 


RDGA2: 


RD4B: 
RD4C: 


10-MAY-79 
MOV #70,MTC1 
MOV wRDE, RTRN 
JMP TAP 
TST RDCRD 
BNE RD3 
BIT #2000, aDS 
BEQ RD3 
TST TMELG 
BNE 
MOV RO, EOTREC 
BIS #100000, EOTREC 
BIT 2,aDS 
BEQ D4 
JSR PC,PAPRT 
TYPE ,MSG22 
HALT 
JMP STARTA 
BIT #4000, aSuR 
BNE RDS 
TST TMFLG 
BEQ RD4B 
BIT #4,aDS 
BNE RDGA 
MOV #RDATA, CADER 
MOV #2,DRVER 
JSR PC.ERPT 
MOV UNP ,R4 
1ST RDCMD 
BEQ 1$ 
INC RDERR1(R4) 
BR RDO 
INC RDER1(R4) 
BR RD6 
MOV #RDATA,R3 
TST RDCMD 
BNE RDGAO 
BIT #2000, UDES 
BNE RDGAZ 
ADD #2,R3 
BR RDGA2 
MOV FMCNT,R4 
COM RG 
BIT #20, UDES 
BEQ RD4AI 
CLC 
ROR R4 
ADD R4,R3 
BIC #1.R3 
BIT #2000,UDES 
BNE RDGAZ 
SUB #2,R3 
JSR PC.ER2 
BR RDGC 
JSR PC ,ERCHK 
TST SERFL 
BEO RDS 


H 5 
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SET READ FORWARD 
SET INTERRUPT RETURN ADDRESS 
3;GO EXECUTE TAPE COMMAND 

; 1GNORE EOT IF READ REVERSE 


41m IF EOT 


F SO: BR 
GET # OF — LEFT IN BLOCK TO READ 


;SET EOT 

; SEE ‘al LOAD POINT 
:1f NOT: BR 

:PRINT CYCLE NUMBER 
TYPE MSG 


RESTART 
"SEE IF SHOULD CHECK ERRORS 
;1F NOT: BR 


7; 1f NO TM EXPT: BR 


71F TM RECVD: BR 

;SAVE EXPT BUS ADDRESS 
;SET TM STATUS ERROR FLAG 
;GO PRINT TM ERROR 


:SEE IF READ REVERSE 
NOT: BR 


i IF 


; BUMP READ REVERSE ERROR 


;BUMP READ FORWARD ERROR 


;SEE IF READ REVERSE 
O: BR 


317 $ 
:SEE IF IN PE 
:1F SO: BR 


;SEE IF CORE DUMP 
;1F NOT: BR 


sSET TO FC/2 

;SET EXPT BUS ADDRESS 
sMAKE EXPT ADDRESS EVEN 
;SEE IF IN PE 

;1F SO: BR 


;GO CHECK ERRORS 
;1f NO ERROR: BR 


SEQ 0059 


CZTEDCO TMO3S-TE16/TU77 DRI 
10-MAY-79 10:32 


CZTEDC.P11 


~m 

o 

~ 

y 
oooooooooooocooo 
ees et et 4 ws as 
OooCuooooooo°o°ocoo 
POPIPRIPIRIPIR 


Sa MOENOFLWwONM 


ofne = 


013704 


000207 


000674 
000562 


001104 
001144 


020000 
000676 
014750 


000040 
010770 
000574 
011654 
000562 
000676 
000660 
000001 
007556 
000562 
000660 
000564 
000676 
000676 


007556 
000676 


MACY11 30A(1052) 


179374 


170342 


000666 


RD4D: 
RD4E: 


RDS: 


RD6: 


RD7: 


RD7A: 


RD10: 


RD11: 


RDEX: 
RDX: 


10-MAY-79 
MOV UNP ,R4 
TST RDOCMD 
BNE RD4D 
INC RDER1(R4) 
BR RDGE 
INC RDERR1(R4) 
JSR PC,RORTY 
CLR RTYFL 
BIT #20000 ,aSwR 
BNE RD6 
TST TMFLG 
BNE RD6 
JSR PC ,DCHK 
CLR SERFL 
JSR PC,DS3 
BIT #40,aSWR 
BEQ 7 
JSR -Y0Z 
MOV RSTAL ,STAL 
JSR PC,STALL 
TST RDCMD 
BEQ RD7A 
CLR TMFLG 
BR RD10 
TST EOTREC 
BPL RD10 
MOV #1,R0 
DEC RO 
BEQ RO11 
JMP RDO 
TST RDCMD 
BNE DEX 
TST EOTREC 
BM] RDEX 
TST TMEX 
BEQ RDEX 
TST TMFLG 
BNE RDEX 
INC TMFLG 
INC RO 
JMP RDO 
CLR TMFLG 
RTS PC 


. 3 
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SEE IF READ REVERSE 

:1F SO: BR 

;BUMP READ FORWARD ERROR 
;BUMP READ REVERSE ERROR 
;GO RETRY 

CLEAR RETRY FLAG 


;SEE 1F SHOULD DO DATA CHECK 
:1f NOT; BR 


3G0 CHECK DATA 

sCLEAR STATUS ERROR FLAG 
:CLEAR BUFFER 

:SEE IF SHOULD YOZZLE 
:1F NOT: BR 

sELSE GO YOZZLE 

7SET DELAY 


STALL 
;SEE IF READ REVERSE 
;1F NOT: BR 
;CLEAR TAPE MARK FLAG 
;SEE 1F EOT FOUND 
;1f NOT: BR 
;SET TO EOT 
31 DONE ALL: BR 
sSEE IF READ REVERSE 
; SO: BR 
;SEE IF FOUND EOT 
F SO: BR 
;SEE IF ti 
;SEE IF TM FOUND 
;1F SO: BR 
sELSE SET FLAG 
;SET RECORD COUNT TO ONE 
3GO READ TM 


sEXIT 


SEQ 0060 


5 
CZTEDCO aad 3 ne Ae a | DRT MACY11 30A(1052) 10-MAY-79 10:46 " paGe 61 


CZTEDC.P11 10-MAY-79 10:32 SEQ 0061 
2710 ptererereerererrereereerreererenerenereeeeeteReeeeeee 
a ;READ ERROR RETRY SUBROUTINE: 

2713 “THIS SUBROUTINE WILL RETRY ALL DATA RELATED 

2714 ;READ ERRORS UP TO EIGHT (8) TIMES. IF ALL 

2715 ;FOUR RETRIES ARE BAD, IT 1S CONSIDERED 

2716 ;A HARD ERROR. IF ANY ARE GOOD, IT IS A 

2717 ;SOFT ERROR. RETRIES MAY BE INHIBITED 

2718 VIA SWITCH FOUR (SW4=0: INHIBIT RETRIES) 

2719 peereeereeereererereerereetereeeneneeeteeeeteeeeere 
2720 

2721 010374 032777 000020 170206 RDRTY: BIT #20,aSWR >SEE IF RETRY INHIBITED 

2722 010402 001001 BNE RDRTO ;1F NOT: BR 

sic? 010404 000207 RTS PC ELSE RETURN 

2725 010406 013703 000722 RDRTO: MOV ERSAV,R3 

2726 010412 022703 100000 CMP #100000,R3 ie BRANCH IF OTHER THAN CORRECTED READ ERROR 
2727 010416 001011 BNE 1$ 3++B 

2728 010420 032777 000040 170074 BIT #40,a0S :+*8 BRANCH IF NRZ 

2729 010426 001405 BEQ 1$ 3++B 

2730 010430 005037 000706 CLR SERFL 3++B CLEAR ERROR FLAG 

2731 010434 000004 026304 bacon = > 3*+B TYPE ‘CORRECTED PE DATA ERROR' 
2732 010440 000447 BR RT2 :+*B INC SOFT COUNTS 

2733 010442 042703 102720 1$: BIC £02720, R3 ;MARK NON-RECOVERABLE ERROR BITS 
2734 010446 001407 BEQ RDRT1 ZI1F NOT: BR 

2735 010450 004737 022012 JSR PC,PAPRT PRINT HEADER 

2736 010454 000004 025371 TYPE ,MSG79 s TYPE MSG 

2737 010460 004737 010754 JSR ae” NRTP PRINT Ba FOR NON-RETRYABLE ERROR 
2738 010464 000207 RTS RETURN 

2739 010466 032777 002000 170114 RDRT1: BIT £2000, aswR ;SEE IF PRINT INHIBITED 

2740 010474 001002 BNE RORT1B ;1F SO: BR 

2741 010476 000004 025101 TYPE ,MSG64 :TYP E MSG 

2742 010502 005037 000702 RDRT1B: CLR RTCNT ;CLEAR RETRY COUNTER 

2743 010506 005037 000706 RDRTG: CLR SERFL ;CLEAR STATUS ERROR FLAG 

2744 010512 012737 000002 000712 MOV #2, RTYFL :SET READ RETRY FLAG 

2745 010520 004737 010770 JSR PC,YOZ 3G0 TO YOZZLE TO RETRY READ 

2746 010524 005737 000706 TST SERFL ;SEE IF RETRY ERROR 

2747 010530 001026 BNE RDRTS :1F SO: BR 

2748 010532 032777 002000 170050 BIT #2000 ,aSwR 

2749 010540 001007 BNE RDRT2 

2750 010542 000004 025514 TYPE ,MSG105 TYPE MSG 

2751 010546 000004 025123 TYPE ,MSG65 TYPE MSG 

2752 010552 013703 000702 MOV RTCNT,R3 

2753 010556 104400 TYPOCT ;PRINT RETRY NUMBER 

2754 010560 013704 000674 RDRT2: MOV UNP ,R4& 

2755 010564 005737 000562 TST RDOCMD ;SEE IF READ REVERSE 

2756 010570 001003 BNE RDRT3 :1F SO: BR 

2757 010572 005264 002664 INC RFSOFT(R4) ;ELSO BUMP FORWARD SOFT ERROR COUNTER 
2758 010576 000402 BR RDRT4 

2759 010600 005264 002704 RDRT3: INC RRSOFT(R4) ;BUMP ERRORS SOFT CNTR 

2760 010604 000207 RDRT4: RTS PC RETURN 

2761 010606 013703 000722 RDRTS: MOV ERSAV,R3 GET ER 

2762 010612 005037 000650 CLR TEMPS :CLEAR RECOVERABLE ERROR INDICATOR 
2763 010616 042703 102720 BIC #102720.R3 :MASK RECOVERABLE BITS 

2764 010622 001412 BEQ RDRTSA ;1F RECOVERABLE: BR 

2765 010624 004737 022012 JSR PC,FAPRT sPRINT HEADER 


CZTEDCO TMO3S-TE16/TU77 DRT 


CZTEDC.P11 
2766 010630 
2767 010634 
2768 010640 
2769 010646 
2770 010650 
2771 010656 
2772 010660 
2773 010664 
2774 010670 
2775 010672 
2776 010676 
2777 010700 
2778 010704 
2779 010706 
2780 010712 
2781 010720 
2782 010722 
2783 010726 
2784 010732 
2785 010736 
2786 010740 
2787 010744 
2 010746 


788 
2789 010752 
2791 010754 


2794 010766 


on™ 


La 

Qo 

— 

= 
fololojleloleojojleojlojlojloloj—j—) 
ee ee ed ed ed od 
ee ee ee ee ed ed et ot ot COO 
Sooooooooc[“e°c[eon™n™ 
NOLOWESLOLO LOWS O 


OOwwrnfWwn -—— 


10-MAY-79 10:32 
000004 025371 
004737 010754 
012737 000001 
032777 002000 


000004 025123 
013703 000702 


005737 000650 
005037 000650 


005237 000702 
023737 000702 


000004 026025 
013704 000674 
005737 000562 
005264 002724 


005264 002744 
000207 


013703 000722 


004737 020250 
000207 


000602 


000562 
0000350 


000032 
011054 
177775 
020372 
000676 


040000 


ooooo°o-0o-So0o°0°0°0 
=—O00 — — 0-00 — 
NEF NNN NEN ES 


MACY11 30A(1052) 


000650 
167732 RDRT5A: 
RDRT5B: 


RDRT6: 
000604 


RDRT7: 
RDRTX: 


NRTP: 


000666 YO2: 
167506 yY0Z0: 


000672 
000672 YOZA: 
000662 YOZB: 
000666 

yozCc: 


000666 


K 5 
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TYPE ,MSG79 
JSR 


BR R B 
BIT #2000 ,aSwWR 


BNE RORT6 
TYPE ,MSGE5 

Vv RTCNT,R3 
TYPOCT 
TST TEMPS 
BEQ RDRT6 
CLR TEMPS 
RTS PC 
INC RTCNT 
CMP RTCNT,RETRY 
BNE RORTG 
TYPE ,MSG115 
MOV UNP ,R4 
TST ROCMD 
BNE 


RORT? 

INC RF HARD (R4) 
RORTX 

INC RRHARD(R4) 
PC 


MOV ERSAV,R3 
JSR PC, FRPRT 
PC 


FRR AREA AAA A AAA AAA AAA AREA A AERA ARATE EEE 


;YOZZLE SUBROUTINE: 


THIS SUBROUTINE, ENTERED VIA SWITCH FIVE (5), 
3A CONTINUOUS READ AND SPACE OVER OF THE CURRENT RECORD ON TAPE. 
FULL STATUS AND DATA CHECKING MAY BE PERFORMED 
;OR NOT VIA CONSOLE SWITCHES ELEVEN (11) AND —o (13). 


s TYPE MSG 
;PRINT ER 
;SET FLAG 


; SEE IF PRINT INHIBITED 
:1F SO: BR 


TYPE MSG 
;PRINT RETRY NUMBER 


;SEE IF ig NON-RECOVERABLE 


:1F NOT: 


: CLEAR FLAG 
IT 


;SEE IF DONE 8 RETRIES 
F NOT: BR 


; TYPE MSG 
;SEE IF ~ REVERSE 


s1F SO: B 

:;BUMP FORWARD HARD ERROR CNTR 

;BUMP REVERSE HARD ERROR CNTR 
ETURN 


;GET ER REGISTER 
;PRINT ER 

;PRINT F OR R 

> RE 


TURN 


sA SOFTWARE DELAY 1S PERFORMED BETWEEN EACH R 


[AND SPACE OPERATION AND MAY BE VARIED BY TYPING 
;CNTRL C ON THE TTY AND ENTERING A VALUE IN RESPONSE 
;TO THE PRINTED REQUEST. 


peterereeeeeeeeeetereeeeeeeeekeneteteeeeeKeeRe KATE ee 


MOV YSTAL,STAL 
JSR PC, STALL 
MOV #-1,aFC 
TST ROCMD 
YOZA 
MOVB #30 ,MTC1 
0ZB 


Y 
MOVB #32,MTC1 

MOV #YO2C ,RTRN 
MOV wi777?5, STAL 
1ST TMFLG 


1$ 
MOV #40000, STAL 


:00 YOZZLE STA 


LL 
;SET TO 1 RECORD SPACING 


;SEE 1F READ REVERSE 
:1F NOT: BR 

;SET TO SPACE FORWARD 
;SET TO SPACE REVERSE 


;SET RETURN ADDRESS 
SET TIME MULTIPLIER 


:G0 YOZZLE 
SE M 


E 1F T 


;1f NOT: BR 
SET TM STALL 


1S USED TO PERFORM 


SEQ 0062 


CZTEDCO TMO3S-TE16/TU77 DRT 


CZTEDC.P11 10-MAY-79 10:32 
2822 011070 000403 
2823 011072 013737 000602 
2824 011100 004737 011654 
2825 011104 012777 032352 
2826 011112 005737 000562 
2827 011116 001416 
2828 011120 013703 000556 
2829 011124 005103 
2830 011126 032737 000020 
2831 011134 001401 
2832 011136 006203 
2833 011140 060377 167350 
2834 011144 012737 000076 
2835 011152 000403 
2836 011154 012737 000070 
2837 011162 013777 000556 
2838 011170 012737 011202 
2839 011176 000137 020372 
2840 011202 032777 004000 
2841 011210 001047 
2842 011212 005737 000676 
2843 011216 001442 
2844 011220 005737 000562 
2845 011226 001425 
2846 011226 012703 032352 
2847 011232 013704 000556 
2848 011236 005104 
2849 011240 032737 000020 
2850 011246 001401 
2851 011250 006204 
2852 011252 060403 
2853 011254 042705 000001 
2854 011260 032737 002000 
2855 011266 001001 
2856 011270 005743 
2857 011272 004737 016614 
2858 011276 000430 
2859 011300 012703 032352 
2860 011304 032737 002000 
2861 011312 001001 
2862 011314 005723 
2863 011316 004737 016614 
2864 011322 000416 
2865 011324 004737 016522 
2866 011330 005737 000712 
2867 011334 001013 
2868 011336 032777 020000 
2669 011344 001005 
2870 011346 005737 000676 
2871 011352 001002 
2872 011354 004737 014750 
2875 011360 004737 013614 
2874 011364 .032777 000040 
2875 011372 001402 
2876 011374 000137 011002 
2877 011400 000207 


L 5 
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000666 
167402 


000552 


000672 


000672 
167326 
000662 


167400 


000552 


000552 


000552 


167244 


167216 


yYoZCco: 


yo2zC1: 
YOZC2: 


YOZD: 


YOZD4: 


YOZD2: 
YOZD0: 


YOZD3: 


YO2D1: 
YOZE: 


YOZF: 
YO2G: 


YOZH: 


2s 
YSTAL,STAL 
PC, STALL 
#RDATA,@BA 
ROCMD 


#YOZD ,RTRN 
TAP 
#4000, aSuR 
YOZE 


FACNT,R4 
R4 
#20,UDES 
YOZ04 

R4 

R4,R3 


#1 ,R3 
#2000, UDES 
YOZD2 


YO2 
#RDATA,R3 
#2000,UDES 
Y0Z03 
(R3)+ 
PC,ER2 
YOZF 
PC,ERCHK 
RTYFL 


Y02G 
#20000 ,aSwR 
YOZF 


:00 YOZZLE STALL 
;SET BUS ADDRESS 
;SEE IF READ REVERSE 
;1F NOT: BR 


SEE IF CORE DUMP 
;1f NOT: BR 
sR3_ = FC/2 


;SET REVERSE BUS ADDRESS 
;SET READ REVERSE 


SET READ FORWARD 
;SET CHARACTER COUNT 
;SET RETURN ADDRESS 


READ 
: SEE If SHOULD CHECK ERRORS 
:SEE LF TAPE MARK TIME 
‘SEE IF READ REVERSE 
NOT: BR 


;SEE IF CORE DUMP 
s IF T: BR 


: OT: B 

:SET TO FC/2 

:SET EXPT BUS ADDRESS 
sMAKE EXPT ADDRESS EVEN 
;SEE IF PE 

:1F SO: BR 

;SET EXPT BA 

3G0 CHECK ERRORS 

>SEE IF PE 

:1F SO: BR 

:SET EXPT BA 

:GO CHECK ERRORS 

sELSE GO CHECK ERRORS 
:SEE IF RETRY 

:1F SO: BR 

7SEE IF SHOULD CHECK DATA 
;1F NOT: BR 

sSEE IF TAPE MARK 

:1F SO: BR 

sELSE GO CHECK DATA 


;GO CLEAR DATA AREA 
;SEE 1F SHOULD CONTINUE YOZZLE 
;1F NOT: BR 


EXIT 


SEQ 0063 


mM 5 
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CZTEDC.P11 10-MAY-79 10:32 SEQ 0064 
2878 peeeeeeererrereeerereereerrereereeneeereeeeeeeeeee ee 
oth ;BACKSPACE SUBROUTINE: 

2881 CTHIS SUBROUTINE IS USED TO PERFORM THE 

2882 id sBACKSPACE OPERATION REQUIRED BY THE READ 

2883 :ROUT INE FOR READ FORWARD AFTER WRITING. 

2884 :1f A TAPE MARK IS EXPECTED (TM=1) THEN THE SPACE 
2885 ROUTINE ASSUMES THAT THE TM WILL BE FIRST WHEN 
2886 :BACKSPACING. THEREFORE TWO OPERATIONS ARE WREQUIRED 
2887 10 SPACE OVER A BLOCK. FIRST SPACE OVER THE TM, THEN 
2888 ;SPACE OVER THE DATA RECORDS. 

2889 tA — FOR RECORD COUNT ZERO IS MADE AT THE 

2890 _ . SEND OF THE SPACE OPERATION TO ASSURE THAT PROPER 
2891 s TAPE POSITIONING WAS DONE. 

2892 peeereeeeereeerrerereeerteetereeeKeeeeKeeeeeeeeeeeee ee 
2893 

2894 011402 013737 000600 000666 BKSP: MOV TSTAL,STAL 

2895 011410 004737 011654 JSR PC,STALL 300 TURN AROUND STALL 

2896 011414 012737 023602 000652 MOV #¥MSG10,EMADDR 

2897 011422 012703 032352 MOV @RDATA,RS ;SET EXPECTED BA 

2898 011426 010377 167062 MOV R3,aBA 

2899 011432 005737 000564 TST TMEX ;SEE IF ™™ 

2900 011436 001436 BEQ BO :1F NOT: BR 

2901 011440 012777 177777 167050 MOV #-1,aFC 

2902 011446 012737 000032 000672 MOV #32,MTC1 

2903 011454 012737 011466 000662 MOV #1$,RTRN 

2904 011462 000137 020372 JMP TAPG ;SPACE TO TM 

2905 011466 032777 010000 167114 1$: BIT #10000 ,aSwR ;SEE 1F SHOULD CHECK ERROR 
2906, 011474 001017 BNE BO TIF NOT: BR 

2907. 011476 012737 025021 000652 MOV #MSG55,EMADDR 

2908 011504 032777 000004 167010 BIT #4,aDS ;SEE IF TM 

2909 011512 001006 BNE 2$ ;1F SO: BR 

2910 011514 012737 032352 020224 MOV #RDATA,CADER 

2911 011522 004737 017352 JSR PC,ERPT sPRINT ERROR 

2912 011526 000402 BR BO 

2913 011530 004737 016614 2$: JSR PC,ER2 

2914 011534 013700 000554 BO: MOV RCNT,RO 

2915 011540 005737 000660 TST EOTREC ;BRANCH IF EOT NOT DETECTED 
2916 011544 100007 BPL 1$ 

2917 011546 042737 100000 000660 BIC #100000,EOTREC ;CLEAR EOT INDICATOR 

2918 011554 013703 000660 MOV EOTREC,R3 ;GET # OF RECORDS LEFT IN BLOCK 
2919 011560 160300 SUB R3,R0 sFORM # OF RECORDS TO BACK SPACE 
2920 011562 005200 INC RG 

2921 011564 012737 023602 000652 1$: MOV #MSG10,EMADDR ;SET ERROR MESG ADDRESS 

2922 011572 012737 011630 000662 MOV #2$,RTRN :SET RETURN PC 

2923 011600 012777 177777 166710 MOV #-1,aFC :SET TO BACKSPACE 1 RECORD 
2924 011606 012703 032352 MOV #RDATA,RS :SET EXPECTED BA 

2925 011612 010377 166676 MOV R 

2926 011616 012737 000032 000672 MOV #32,MTC1 SET SPACE REVERSE 

2927 011624 000137 020372 JMP TAPG :60 DO SPACE 

2928 011630 004737 016614 2$: JSR PC,ER2 

2929 011634 013737 000600 000666 MOV TSTAL,STAL 4+ fh eee 

2930 011642 004737 011654 JSR PC, STALL sSTA 

2931 011646 005300 DEC RO + SECREMENT # OF RECORD TO BACKSPACE 
2932 011650 001345 BNE 1$ 

2933 011652 000207 RTS PC sEXIT 
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2934 peeeererrererereeeeeeereeeeeeeseeAKeeKeKKeKKeeeeteAess 
ath ;STALL ROUTINE: 

2937 THIS ROUTINE 1S + al TO PROVIDE SOFTWARE DELAYS 
2938 DURING READ, WRITE, TURN AROUND, AND YOZZLE. 

2939 THE DELAY TIMES MAY BE SET BY THE OPERATOR AT 
2940 sINITIAL START FROM 200(8) OR MAY BE MODIFIED 

2941 ;AT ANY TIME BY ENTERING CNTRL C ON THE TTY AND 
2942 4 ie ge Hf ae NEW VALUES IN RESPONSE TO THE REQUEST. 
2943 THE READ STALL AND THE WRITE STALL ARE DELAYS 
2944 EXECUTED BETWEEN EACH RECORD OF THE DATA BLOCK. 
2945 ;THE TURN AROUND STALL IS EXECUTED EACH TIME 

2946 ;THE DIRECTION OF TAPE MOVEMENT IS CHANGED AND 
2947 ;ALSO EACH TIME THE TAPE OPERATION CHANGES FROM 
2948 ;WRITE TO READ OR READ TO WRITE. THE YOZZLE 

2949 sSTALL IS EXECUTED ONLY DURING THE YOZZLE ROUTINE. 
2950 SRR ARATE TEAR A EEE AAA AAA AA AAAAAAAAARARARA RRR E A 
2951 

2952 011654 eet 000666 STALL: DEC STAL 

2953 011660 001375 BNE STALL ; DELAY 


2954 011662 000207 RTS PC sEXIT 
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2955 
2956 peeeeretrereerrererrerererrreeeereeereeeeeeReAeeeeee 
3444 ;RANDOM CHARACTER COUNT GENERATOR: 
2959 THIS ROUTINE ENTERED VIA CONSOLE SWITCH 
2960 sSEVEN (7) IS USED TO GENERATE A RANDOM 
2961 ;CHARACTER COUNT FOR EACH DATA BLOCK. 
2962 ;ALL RECORDS WITHIN A GIVEN BLOCK WILL BE 
2963 ;THE SAME, BUT EACH BLOCK WILL VARY. 
2964 : THE LIMITS ARE TWENTY (20) TO FOUR THOUSAND 
2965 344000) OCTAL CHARACTERS PER RECORD. 
2966 MITTSISICIITITILII ETT T TITEL LETT 
2967 
2968 011664 012701 177760 CCNTR: MOV #-20,R1 ;SET HIGH LIMIT 
2969 011670 012702 175000 MOV #-3000,R2 :SET LOW LIMIT 
2970 011674 004737 022314 JOR PC ,RANG 60 GENERATE NUMBER 
2971 011700 042737 000001 000630 BIC #1,RANSAV 
2972 011706 013737 000630 000556 MOV RANSAV ,FMCNT 7SET CHAR COUNT 
2973 011714 012737 177777 013652 MOV #-1,PATS ;PRESET DATA PATTERN 
ore 011722 000207 RTS PC sEXIT 
2976 peetereereererrererrrrrrreerreeeeeeeeeKeReeeeeeeeeeee 
3444 ;RANDOM RECORD COUNT GENERATOR: 
2979 THIS ROUTINE ENTERED VIA CONSOLE SWITCH SIX (6) 
2980 31S USED TO GENERATE A RANDOM NUMBER OF RECORDS 
2981 :FOR EACH BLOCK OF DATA 
2982 >THE LIMITS ARE ONE (1) “To FIVE HUNDRED (500) OCTAL 
2983 “RECORDS PER BLOCK. 
2984 [eeeeeeetteeeereeeereeteetreteeeeneeeneeeneeeneteneeee 
2985 
2986 011724 012702 000001 RCNTR: MOV #1,R2 3SET LOW LIMIT 
2987 011730 012701 000500 MOV #500,R1 3SET HIGH LIMIT 
2988 011734 004737 022314 JSR PC,RANG 3GO GENERATE NUMBER 
2989 011740 013737 000630 000554 MOV RANSAV,RCNT :SET RECORD COUNT 
Sooe 011746 000207 RTS PC EXIT 
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2995 
2994 ptererereerererereeeeeeererereeeetereteteeeeeererenes 
3-844 ;TEST CONDITION ENTRY ROUTINE: 
2997 THIS ROUTINE IS USED TO ALLOW THE OPERATOR 
2998 ;TO ENTER, AT THE TTY, THE NECESSARY PARAMETERS 
2999 TO RUN THE PROGRAM AS HE WISHES. THE 
3000 ROUTINE 1S ONLY ENTERED UPON INITIAL STARTING 
3001 ;FROM LOCATION 200(8). 
3002 + MAIN PURPOSE OF THIS ROUTINE IS TO ESTABLISH 
3003 TABLE OF DEVICES TO BE TESTED. THIS TABLE 
3004 CONSISTS OF AN ENTRY FOR EACH OF ONE (1) TO 
3005 EIGHT (8) DEVICES. EACH ENTRY CONTAINS THE 
3006 SLAVE NUMBER, DENSITY, PARITY, AND 
3007 sFORMAT. THE INFORMATION IS ENTERED 
3008 7 IN RESPONSE TO PRINTED REQUESTS AT THE te 
3009 SLAVES MAY BE ENTERED IN ANY ORDER. EAC 
3010 sPARAMETER IS CHECKED FOR LEGALITY BEFORE "BEING 
3011 ;SET INTO THE TABLE. 
3012 THE DRIVE NUMBER REQUEST WILL ALSO CHECK THE MASSBUS 
3013 sFOR THE PRESENCE OF THE REQUESTED DRIVE. IF IT 1S NOT FOUND, 
3014 sA_ NON“EXIST DRIVE MESSAGE WILL BE PRINTED AND ANOTHER DRIVE 
3015 sREQUEST MADE. WHEN THE DRIVE IS FOUND, _ RESPONSE IS STORED 
3016 sAND CONTROL PASSED TO THE SLAVE SELECT ROUTINE. 
3017 THE SLAVE SELECT ROUTINE ALSO CHECKS FOR THE PRESENCE OF THE 
3018 sSLAVE. IF IT IS NOT PRESENT, A MESSAGE IS PRINTED AND ANOTHER 
3019 ; REQUEST * ISSUED. WHEN THE SELECTED SLAVE IS FOUND TO BE 
3020 sPRESENT, A MESSAGE IS PRINTED IF IT IS A 7 CHANNEL DRIVE 
3021 :T0 ASSIST IN SELECTING DENSITY, PARITY, AND FORMAT. 
3022 UPON COMPLETION OF THE DEVICE TABLE, REQUESTS 
3023 ARE PRINTED FOR ENTRY OF THE NUMBER OF CHARACTERS 
3024 -PER RECORD AND THE NUMBER OF RECORDS PER BLOCK. THE 
3025 sNEXT REQUEST IS FOR A PATTERN NUMBER TO BE USED 
3026 sFOR WRITING AND CHECKING OF READ DATA. 
3027 sFOLLOWING THE PATTERN REQUEST IS THE TAPE MARK OPTION. 
3028 RESPONDING TO THE REQUEST (TM=) WITH A ONE (1) 
3029 WILL CAUSE THE PROGRAM TO WRITE A TM AT THE 
3030 sEND OF EACH DATA BLOCK AND TO EXPECT THE 
3031 ;TM TO BE DETECTED IN EITHER READ FORWARD AND REVERSE 
3032 :OR DURING SPACE OPERATION. A RESPONSE OF ZERO (TM=0) 
3035 sDISALLOWS WRITTING OF THE TM AND CAUSES THE READ 
3034 ;AND SPACE ROUTINES TO EXPECT NO TM TO BE PRESENT. 
3035 7 THE LAST REQUESTS ARE FOR ENTRY OF THE DESIRED 
3036 ;WRITE, READ, AND TURN AROUND STALLS. 
3037 peereeerrerererretereeeetenteeeeeteeeeKeeKe eee eee 
3038 
3039 011750 005737 000636 TINP: TST TINF 41s 1F SHOULD INPUT FROM TTY 
3040 011754 001002 BNE i$ 0: BR 
3041 011756 000137 013270 JMP TINP4 GET SWITCHES 
3042 011762 005037 000674 1$: CLR UNP :CLEAR TABLE POINTER 
3043 011766 005037 004750 CLR REOTC ;CLEAR EOT UNIT COUNTER 
3044 011772 012737 024231 012016 MOV #MSG31,41$ :GET TITLE MSG 
3045 012000 005737 000754 TST ASEQF SEE 1F AUTO SEQ 
3046 012004 001403 BEQ 4$ :1F NOT: BR 
3047 012006 012737 024157 012016 MOV #MSG30,41% SET AUTO SEQ HDR 
3068 012014 000004 4$: TYPE : TYPE MSG 
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012016 000000 41$: WORD 0 s ADDRESS OF APPROPRIATE WILE MSG 

3050 012020 105077 177772 CLRB 0s a1 [DO NOT TYPE TITLE ON RESTART 
012024 000004 024313 TYPE ,MSG31A [TYPE INSTRUCTIONS 

3052 012030 105037 024313 CLRB MSG3IA *DO N NOT TYPE STARTUP INSTRUCTIONS ON RESTART 

3053 012034 005737 013444 TST SCVFL 7SEE IF SHORT CONVERSATION 

3054 012060 001065 BNE 6$ :1F SO: BR 

3055 012042 000004 025245 TYPE ,MSG74 * REQUEST REGISTER START 

3056 0120466 013703 000544 MOV REGS,R3 

3057 012052 104400 TYPOCT :PRINT CURRENT REG START 

3058 012054 012705 000544 MOV #REGS,RS :SAVE ADDRESS LOCATION 

3059 012060 012701 000007 MOV #7,R1 °SET SIZE OF ENTRY 

3060 012064 012702 176400 MOV #176400,R2 :SET UPPER LIMIT 

3061 012070 012703 172300 MOV #172300,R3 :SET LOWER LIMIT 

v4] 012074 004737 022476 JSR PC,TTR 360 GET RESPONSE 

3064 012100 000004 025270 TYPE ,MSG75 ;REQUEST INTERRUPT VECTOR ADDRESS 

3065 012104 013703 000546 MOV VECT,R3 

3066 012110 104400 TYPOCT sPRINT CURRENT VECTOR 

3067 012112 012705 000546 MOV #VECT,RS sSET SAVE LOCATION 

3068 012116 012701 000004 MOV #4,R1 SET SIZE OF ENTRY 

3069 012122 012702 000224 MOV #224,R2 :SET UPPER LIMIT 

3070 012126 012703 000150 MOV #150,R3 >SET LOWER LIMIT 

3071 012132 004737 022476 JSR PC,TTR :GO0 GET RESPONSE 

3072 012136 013700 000546 MOV VECT,RO 3GET VECTOR ADDRESS 

3073 012142 012720 021160 MOV WMTINT, (RO) + sLOAD VECTOR WITH HANDLER ADDRESS 

3074 012146 012710 000340 MOV #340, (RO) sLOAD PRIORITY LEVEL 

3075 012152 013700 000544 MOV REGS,RO GET STARTING REGISTER ADDRESS 

3076 012156 012701 000016 MOV #16,R1 sSET NUMBER OF REGISTERS 

3077 012162 012702 000510 MOV #C1,R2 GET FIRST ADDRESS LOCATION 

3078 012166 010022 5$: MOV RO, (R2)+ sBUILD TABLE OF ADDRESSES 

3079 012170 062700 000002 ADD #2.R0 ‘BUMP ADDRESS 

3080 012174 005301 DEC R1 ;SEE IF DONE 

3081 012176 001373 BNE 5$ :1F NOT: BR 

3082 012200 005737 000734 TST ASEQE ‘SEE IF AUTO SEQ 

3083 012204 001403 BEQ 6$ :1f NOT: BR 

3084 012206 005726 TST (SP)+ RESET STACK POINTER 

epee 012210 000137 021176 JMP ASEQ 3GO0 TO AUTO SEQUENCE 

3087 012214 012777 000040 166276 68: MOV #40,aCS s INITIALIZE 

3088 012222 000004 024756 TYPE ,MSG52A SREQUEST DRIVE (1TMO3) # 

3089 012226 012705 000550 MOV #DVN,RS >GET ADDRESS 

3090 012232 012701 000002 MOV #2,R1 :SET SIZE OF RESPONSE 

3091 012236 012702 000007 MOV #7,R2 >SET UPPER LIMIi 

3092 012242 012703 000000 MOV #0,R3 :SET LOWER LIMIT 

3093 012246 004737 022476 JSR PC,TIR :GO GET DRIVE NUMBER 

3094 012252 013777 000550 166240 MOV DVN, acs 

3095 012260 005777 166224 TST act SACCESS DRIVE 

3096 012264 032777 010000 166226 BIT #0000, acs ?SEE IF NED 

3097 012272 001403 BEQ NPO :1F NOT: BR 

3098 012274 000004 025202 TYPE, nsevi” “TYPE "NON-EXISTANT DRIVE' 

3099 012300 000745 BR 6$ SRETRY DVN 

3101 012302 012705 000646 TINPO: MOV #TEMP2,R5 :SET ADDRESS FOR RESPONSE 

3102 012306 000004 024400 TYPE ,MSG32 REQUEST SLAVE (TE16,TU77) & 

3103 012312 005037 000646 CLR TEMP2 ‘CLEAR BUFFER 

3104 012316 012701 000002 MOV #2,R1 :SET NUMBER OF CHARACTERS TO INPUT 
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3105 012322 012702 000007 MOV #7, R2 :SET MAXIMUM LIMIT 
3106 012326 012703 000000 MOV #0,R3 [SET MINIMUM LIMIT 
3107 012332 004737 022476 JSR PC,TIR :G0 GET UNIT NUMBER 
3108 012336 005737 000644 TST TEMP1 7SEE IF HAVE NEW PARAMETER 
3109 012342 001010 BNE TINPOB SIF SO: BR 
3110 012344 013700 000674 MOV UNP , RO 
3111 012350 001754 BEQ TINPO :BRANCH IF FIRST ENTRY 
3112 012352 012760 177777 000742 MOV #-1,UN1(RO) :SET END UNIT TABLE 
3113 012360 000137 012700 JMP TINP2C :G0 GET RECORD COUNT 
3114 012364 013700 000674 TINPOB: MOV UNP,RO 
3115 012370 011560 000742 MOV (RS),UN1(RO)  ;SET NEW SLAVE # 
3116 012374 012777 000040 166116 MOV #40,aCS :DO A MASS BUS CLEAR 
3117 012402 013777 000550 166110 MOV DVN,acs ;LOAD DRIVE # 
3118 012410 01607 000742 166124 MOV UN1(RO) ,aTC s;LOAD SLAVE NUMBER 
3119 012416 032777 002000 166112 BIT #2000,aD0T ;SEE IF SLAVE PRESENT 
3120 012424 001003 BNE TINPOD [IF $0: BR 
3121 012426 000004 025034 TYPE ,MSG57 [TYPE NON-EXISTANT SLAVE" 
3122 012432 000723 R TINPO REDO 
3123 012434 017703 166076 TINPOD: MOV adT,R3 :GET CONTENTS OF DT REG 
3124 012440 042703 000007 BIC #7,R3 [CLEAR DRIVE TYPE # 
3125 012444 022703 142050 CMP #142050,R3 [SEE IF 9TRK TMO3 
3126 012450 001407 BEQ TINPOE s1F SO: BR 
3127 012452 000004 024727 TYPE ,MSG50 :TYPE ‘ILLEGAL DRIVE TYPE’ 
3128 012456 017703 166054 MOV aDT,R3 
3129 012462 042703 000007 BIC #7,R3 sCLEAR SLAVE # 
3130 012466 104400 TYPOCT sPRINT DRIVE TYPE REGISTER 
3131 012470 004737 023362 TINPOE: JSR PC, SNPT :PRINT SERIAL NUMBER 
3133 012474 000004 024413 TINP1: TYPE,MSG33 ;REQUEST DENSITY 
3134 012500 005037 000646 CLR TEMP2 sCLEAR BUFFER 
3135 012504 012701 000002 MOV #2,R1 :SET NUMBER OF CHARACTERS TO INPUT 
3136 012510 012702 000004 MOV #4,R2 sSET MAXIMUM LIMIT 
3137 012514 012703 000003 MOV #3,R3 >SET MINIMUM LIMIT 
3138 012520 004737 022476 JSR PC,TIR :GO GET DENSITY 
3139 012524 012703 000010 MOV #10,R3 ° sSET POSITION FACTOR 
te 012530 004737 013446 JSR PC,TPOS :G0 LOAD DENSITY INTO PROPER POSITION 
4 
3142 012534 000315 TINP2: SWAB (RS) s1F DENSITY 
3143 012536 022715 000004 CMP #4,(R5) [1S 1600BP] 
3144 012542 001415 BEQ 1$ s THEN SKIP PARITY REQUEST 
3145 012544 000004 024426 TYPE ,MSG34 sREQUEST PARITY 
3146 012550 005037 000646 CLR TEMP2 sCLR BFR 
3147 012554 012701 000002 MOV #2,R1 sSET NUMBER OF CHAR. T0 INPUT 
3148 012560 012702 000001 MOV #1,R2 ‘SET HIGH LIMIT 
3149 012564 012703 000000 MOV #0,R3 *SET LOW LIMIT 
3150 012570 004737 022476 JSR PC,TTR :GO INPUT PARITY 
3151 012574 000402 BR 23 :SKIP 1600 BPI PAROTY SETTING 
3152 012576 012715 000000 1$: MOV #0,(R5) :SET ODD PARITY FOR 1600 BPI 
3153 012602 012703 000003 2$: MOV #3,R3 ;SET POSITION FACTOR 
s12¢ 012606 004737 013446 JSR PC,TPOS :GO POSITION PARITY 
3156 012612 000004 025000 TINP2A: TYPE,MSG5S3 s;REQUEST FORMAT 
3157 012616 005037 000646 CLR TEMP2 
3158 012622 012701 000003 MOV #3,R1 
3159 012626 012702 000017 MOV #17,R2 
3160 012632 012703 000000 MOV #0,R3 
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JSR PC,TIR G0 GET FORMAT 
MOV 4 ,R3 
JSR PC, TPOS 
INC orc ;BUMP EOT UNIT COUNTER 
CMP #16,UNP SEE IF DONE UNITS 
BEQ TINP2C :1F SO: BR 
ADD #2,UNP ;POINT TO NEXT UNIT 
JMP TINPO ELSE LOOK FOR NEXT UNIT 
CLR UNP ;CLEAR UNIT POINTER 
MOVB REOTC,REOTC+1 ;SET # OF UNITS TO TEST 
TYPE ,MSG55 REQUEST RECORDS PER BLOCK 

Vv RCNT,R3 
TYPOCT ;PRINT RECORD COUNT 
MOV #RCNT,RS ;SET RECORD COUNT ADDRESS 
MOV #7,R ;SET NUMBER OF CHARACTERS TO INPUT 
MOV #177777,R2 SET MAXIMUM LIMIT 
MOV #1,R3 ;SET MINIMUM LIMIT 
JSR PC,TIR GO GET RECORD COUNT 
MOV RCNT,RCSAV ;SAVE RECORD COUNT 
TYPE ,MSG36 ;REQUEST CHARACTERS PER RECORD 
NEG FACNT 
MOV FMCNT,RS 
TYPOCT PRINT CHAR COUNT 
MOV WFEMCNT,RS ;SET CHARACTER COUNT ADDRESS 
MOV #7,R1 ;SET NUMBER OF CHARACTERS TO INPUT 
MOV #4000,R2 SET MAXIMUM LIMIT 
MOV #4 ,R3 SET MINIMUM LIMIT 
JSR PC,TIR ;GO GET CHARACTER COUNT 
NEG FMCNT ;SET TO TWO'S COMPLIMENT 
MOV FMCNT,FCSAV SAVE FRAME COUNT 
TYPE ,MSG37 REQUEST PATTERN # 
MOV PATRN,RS 
TYPOCT PRINT PATTERN 
CLR DOFL ;CLEAR EXTERNAL DATA FLAG 
MOV #PATRN,RS ;SET PATTERN NUMBER ADDRESS 
MOV #3,R1 ;SET NUMBER OF CHARACTERS TO INPUT 
MOV #15,R2 SET MAXIMUM LIMIT 
MOV #0,R3 SET MINIMUM LIMIT 
JSR PC,TIR ;GO GET PATTERN NUMBER 
TYPE ,MSG69 ;REQUEST TAPE MARK 
MOV TMEX,R5 
TYPOCT PRINT CURRENT TM FLAG SETTING 
MOV #TMEX,RS ;GET TM FLAG ADDRESS 
MOV #2,R1 SET SIZE OF RESPONSE 
MOV #1,R2 ;SET UPPER LIMIT 
MOV #0,R3 SET LOWER LIMIT 
JSR PC,TIR 71M 1=YES 
TYPE ,MSG21 REQUEST INTERCHANGE READ 
MOV INTRE R35 
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TYPOCT 
MOV WINTRE RS 
MOV #2,R1 
MOV #1,R2 
MOV #0,R3 


TYPE ,MSG38 
MOV 


SPFLG,R3 

TYPOCT 

MOV #SPFLG,RS 
MOV #2,R1 
MOV #1,R2 
MOV #0,R3 
JSR PC,TTR 
TYPE ,MSG39 

MOV CRCC,R3 
TYPOCT 
MOV #CRCC,R5 
MOV #2,R1 
MOV #1,R2 
MOV #0,R3 
JSR PC,TITR 
JSR PC,GTSWR 
TST SCVFL 
BNE TINPX 
TST TINF 

BEQ TINPX 
TYPE, oor 
MOV STAL,R3 
TYPOCT 
MOV #RSTAL,RS 
MOV #7,R1 
MOV #-1,R2 
MOV #1,R3 
JSR PC,TITR 
TYPE, MSG41 

MOV WSTAL ,R3 
TYPOCT 

MOV #WSTAL,RS 
MOV #7,R1 
MOV #-1,R2 
MOV #1,R3 
JSR PC,TITR 
TYPE, wa? 

MOV AL,R3 
TYPOCT 

MOV #TSTAL,RS 
MOV #7,R1 
MOV #-1,R2 
MOV #1,R3 
JSR PC,TIR 
CLR SCVFL 


:SET LOWER LIMIT 
G0 GET RESPONSE 


REQUEST SINGLE PASS 


;PRINT CURRENT SETTING 
SET ADDRESS OF FLAG 
SET SIZE OF RESPONSE 
SET UPPER LIMIT 

;SET LOWER LIMIT 

;GO GET RESPONSE 


REQUEST CRC CORRECTION 


G 6 
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;PRINT CURRENT SETTING 
:GET FLAG ADDRESS 

:SET SIZE OF RESPONSE 
;SET UPPER LIMIT 


GET SWITCHES 
;BRANCH IF SHORT CONVERSATION 


;BRANCH IF NO TTY INPUT 
;REQUEST READ STALL 


PRINT READ STALL 

SET READ STALL ADDRESS 

;SET NUMBER OF CHARACTERS TO INPUT 
SET MAXIMUM LIMIT 

7SET MINIMUM LIMIT 

;GO GET READ STALL 


;REQUEST WRITE STALL 


:PRINT READ STALL 

SET WRITE STALL ADDRESS 

;SET NUMBER OF CHARACTERS TO INPUT 
SET MAXIMUM LIMIT 

SET MINIMUM LIMIT 

;GO GET WRITE STALL 


;REQUEST TURN AROUND STALL 


PRINT TA STALL 

;SET TURN AROUND STALL ADDRESS 
SET NUMBER OF CHARACTERS TO INPUT 
;SET MAXIMUM LIMIT 


SET MINIMUM LIMIT 
:GO GET TURN AROUND STALL 
;CLEAR SHORT CONVERSATION FLAG 


SEQ 0071 





H 6 
CZTEDCO TMO3-TE16/TU77 4? MACY11 350A(1052) 10-MAY-79 10:46 PAGE 72 


CZTEDC.P11 10-MAY-79 10:32 SEQ 0072 | 
3273 013442 000207 RTS PC sEXIT 
ase 013444 000000 SCvFi: 0 SHORT CONVERSATION FLAG 
3509 UNIT DESCRIPTION POSITIONING SUBROUTINE tt#eereeee 
3278 013446 006337 000646 TPOS: ASL TEMP2 sPOSITION CHARACTER 
3279 013452 005303 DEC R3 ;SEE IF DONE 
3280 013454 001374 BNE TPOS :1f NOT: BR 
3281 013456 013700 000674 MOV UNP ,RO :LOAD UNIT POINTER 
3282 013462 053760 000646 000742 BIS TEMP2,UN1(RO)  ;LOAD CHARACTER INTO UN1(RO) 
013470 000207 RTS PC EXIT 


CZTEDCO TMO35-TE16/TU77 i“? MACY11 350A(1052) 10-MAY-79 10:46 T PAGE 73 


CZTEDC.P11 10-MAY-79 10:32 SEQ 0073 
3285 
3286 peeeereeerererererererrereereereeeerereteeeneeeeeeeet 
St :DATA SETUP ROUTINE: 
3289 “THIS ROUTINE 1S USED TO GENERATE INTO THE ENTIRE 
3290 WRITE BUFFER (4000 OCTAL CHARACTERS) THE ey = 
3291 sSELECTED BY THE OPERATOR. THERE ARE 15 (8) F 
3292 DATA PATTERNS AVAILABLE AND ONE oa EE {DATAT PATTERN 0) 
3293 sWHICH WILL READ ANY PATTERN PRESENTED AT THE 
3294 , HIGH SPEED PAPER TAPE READER. THIS TAPE MUST BE PREPARED 
3295 7BY USING THE PROGRAM CALLED DTC. (MAINDEC-11-DZTUF-A-D) 
3296 ;RANDOM DATA MAY ALSO BE USED VIA CONSOLE 
3297 sSWITCH EIGHT (8). 
3298 sTHIS ROUTINE IS ALSO USED TO CLEAR OUT THE 
3299 READ BUFFER (4000 OCTAL CHARACTERS) BEFORE EACH 
3300 RECORD 1S READ. 
3301 ptererererrrerrrerreeerererereneeeneeeeeeeeeeeeeeeeeee 
3302 
3303 013472 005737 014404 DSUP: TST RDFL sSEE IF DID RANDOM DATA 
3304 013476 001044 BNE DS2A TIF NOT: BR = 
3305 013500 005737 000734 DSO: TST ASEQF 7SEE IF AUTO SEQ 
3306 013504 001406 BEQ DSOC 31 NOT: BR 
3307 0135 005737 000560 TST PATRN ;SEE 1F AUTO RANDOM 
3308 013512 100003 BPL DSOC ;1F NOT: BR 
3309 013514 004737 014342 JSR PC,DATR sELSE GO GENERATE RANDOM DATA 
3310 3 RTS PC ++B DELETED 
3311 013520 000433 BR DS2A +48 GENERATE EXPECTED LRC/CRC & CLEAR READ BFR 
3312 013522 023737 000560 013652 DSOC: CMP PATRN,PATS +SEE IF NEW PATTERN 
3313 013530 001014 BNE DSOA ;1F SO: BR 
3314 013532 013703 000552 MOV UDES ,R3 GET UNIT DESCRIPTION 
3315 013536 042703 177767 BIC #177767,R3 ;MASK EVEN PARITY 
3316 013542 023703 013654 CMP PARS,R3 : SEE IF SAME AS LAST TIME 
3317 013546 001404 BEQ DSOB 31F SO: BR 
3318 013550 010337 013654 MOV R3,PARS 7SAVE PARIT 
3319 013554 004737 014406 JSR PC,CRCLRC 60 GENERATE EXPT CRC/LRC 
3320 013560 000207 DSOB: RTS PC 
3321 013562 012703 026344 DSOA: MOV #WDATA,R3 7R3 = ADDRS OF WRITE BUFFER 
3322 013566 013701 000560 MOV PATRN,R1 3R1 = PATTERN SELECTOR 
3323 013572 010137 013652 MOV R1,PATS 
3324 013576 062701 000001 ADD #1,R1 ;BUMP POINTER 
3325 013602 006301 ASL Ri MAKE PATTERN SELECTOR EVEN 
3326 013604 004771 002764 JSR PC,aDATBL(R1) 3G0 GENERATE PATTERN 
3327 013610 004737 014406 DS2A: JSR PC,CRCLRC 3G0 GENERATE EXPT CRC/LRC 
3328 013614 013702 000556 DS3: MOV FACNT,R2 [R2=BUFFER SIZE 
3329 013620 006202 ASR R2 sR2=FRAME CMT/2 
3330 013622 012701 032352 MOV #RDATA,RI1 ;R1=READ DATA START 
3331 013626 005021 DS4: CLR (R1)¢ CLEAR BUFFER 
3332 013630 005202 INC R2 ;SEE IF DONE ALL 
3333 013632 001375 BNE DS4 TIF NOT: BR 
3334 013634 013737 000552 013654 MOV UDES,PARS 3GET UNIT Sescnart ses 
3335 013642 042737 177767 013654 BIC #177767,PARS | :MASK PARITY 
3336 013650 000207 RTS PC sEXIT 
3337 013652 177777 PATS: -1 ;PATTERN NUMBER SAVE 
3338 013654 000000 PARS: 0 
3339 
3340 
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CO TMO3-TE16/TU77 DRT MACY11 30A(1052) 10-MAY-79 
C.P11 10-MAY-79 10:32 
3341 
tr EXTERNAL DATA INPUT FROM H/S READER (256 CHARACTER MAXIMUM) 
3344 013656 005737 014014 DATO: TST DOFL :BRANCH IF SHOULD DO EXTERNAL INPUT 
3345 013662 001401 BEQ 1$ 
3346 013664 000207 RTS PC 7+4B RETURN 
3347 013666 012737 000001 014014 15: MOV #1,00FL :SET EXTERNAL FLAG 
3348 013674 005077 164722 CLR aPRS CLEAR READER STATUS 
3349 013700 005037 000644 CLR TEMP1 :CLEAR FOR USE AS CHARACTER FLAG 
3350 013704 052777 000001 164710 DATOA: BIS #1, aPRS sSTART READER 
3351 013712 105777 164704 DATOB: TSTB aPRS sSEE IF DONE 
3352 013716 100375 BPL DATOB :1f NOT : BR 
3353 013720 005001 CLR R1 CLEAR sAvE LOCATION 
3354 013722 117701 164676 MOVB @PRB,R1 :SAVE CHARACTER 
3355 013726 005737 000644 TST TEMP 1 :SEE IF HAVE FOUND START CHARACTER 
3356 013732 001011 BNE DATOC :1F SO : BR 
3357 013734 105701 TSTB R1 iSEE IF CHARACTER IS 0 
3358 013736 001762 BEQ DATOA O : BR 
3359 013740 012737 000001 000644 MOV #1, TEMP1 ELSE SET CHARACTER FOUND FLAG 
3360 013746 010137 000646 MOV R1,TEMP2 :SAVE DATA SIZE 
3361 013752 010102 MOV R1,R2 ‘SAVE DATA SIZE 
3362 013754 000753 BR DATOA :G0 GET FIRST DATA CHAR 
3363 013756 110123 DATOC: MOVB R1,(R3)+ ;LOAD BUFFER 
3364 013760 005302 DEC R2 sSEE 1F READ ALL 
3365 013762 001350 BNE DATOA :1F NOT : BR 
3366 013764 012701 026344 DATOD: MOV #WOATA,R1 :R1 = START OF WRITE BUFFER 
3367 013770 013702 000646 MOV TEMP2,R2 *R2 = SIZE OF DATA FIELD 
3368 013774 112123 DATOE: MOVB (R1)4,(R3)¢ SREPEAT LOAD OF DATA FIELD 
3369 013776 022703 032352 CMP #RDATA,R3 :SEE IF DONE 
3370 014002 003001 BGT DATOF s1F NOT: BR 
3371 014004 000207 RTS PC :44B RETUR 
3372 014006 005302 DATOF: DEC R2 [SEE IF AT NEND OF DATA FIELD 
3373 014010 001371 BNE DATOE :1f NOT : BR 
3374 014012 000764 BR DATOD TELSE RESTART FILL 






3375 014014 000000 DOFL: 0 EXTERNAL DATA FLAG=1 IF ALREADY DONE 





erreere TMO3-TE16/TU77 DRT 


ZTEDC.P11 


014016 


014036 
014040 


014042 


014064 


014066 
014072 
014074 


014076 
014102 


ooooo°cK[eo 
ee et ed ed ot et 
Serr rree 
ed ed ed td 


WuAuauanNnN ae — 
OLMOSNO Mw 


10-MAY-79 10:32 


005001 
000770 


012701 


000207 


012701 
000261 
000765 


012701 
000747 


177777 
002002 


000001 
004004 


000376 


052525 


125252 
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DAT2: 


DATS: 
DAT3A: 
1$: 


DAT4: 


DATS: 


DAT6: 


sALL ONES teeeeeeere 


MOV #-1,R1 sRI=DATA 
MOV #2002 ,R2 =R2=WORD COUNT +2 
MOV R1,(R3)4 [LOAD BUFFER 
DEC R2 :SEE IF DONE 
BNE 1$ :1F NOT: BR 
RTS PC 
s ALL ZEROS teeeeeeere 
CLR RI :RI=DATA 
BR DATIA [LOAD BUFFER 
3; WALKING ONE teeeereree 
HOV #1,R1 :R1=DATA 
L 
MOV #4004 ,R2 :R2=CHARACTER COUNT+4 
MOVB = R1, (R3) 4 =LOAD BUFFER 
ROLB sR :SET NEXT CHARACTER 
DEC R2 >SEE IF DONE 
BNE 1$ ‘IF NOT: BR 
RTS PC 


WALKING ZEROtteerenese 

MOV #376,R1 ;R1=START OF DATA 
aR DAT3A ;LOAD BUFFER 
ALTERNATING ONE/ZEROtteeeteree 


MOV #52525,R1 R1=DATA 

BR DATIA ;LOAD BUFFER 
sALTERNATING ZERO/ONE**tereenee 

MOV #125252,R1 sRI=DATA 

BR DATIA ;LOAD BUFFER 
sONE/ZERO IN ALTERNATING WORDS*tteeeeeeee 
MOV #125252,R1 3SET WORD 1 

MOV #52525,R2 sSET WORD 2 

MOV #1002,R4 sSET NUMBER OF ENTRIES 
MOV R1,(R3)¢ LOAD WORD 1 

MOV R2,(R3)4 sLOAD WORD 2 

DEC RG ;SEE IF DONE 

BNE 1$ :1f NOT: BR 

RTS PC 


SEQ 0075 


L_ 6 
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CZTEDC.P11 10-MAY-79 10:32 SEQ 0076 


WALKING ONE/ALL ONE IN ALTERNATING CHARS**#® 


002002 : #2002 ,R2 ;SET BUFFER SIZE 
000001 4 #1,R1 ;SET WALK BASE 


177400 : #177400, (R3) ;LOAD ALL ONE BYTE 
R1,(R3)+ sLOAD WALK BYTE 
sWALK ONE 


;D0 FULL BUFFER 


3430 
3431 
3432 


ocooooooeco 
NNN Wwe 


sALL BITS O0-377eeeeeereee 


: R1 ;RI=STARTING DATA 
004004 ;R2=CHARACTER COUNT+4 
;LOAD BUFFER 
:BUMP DATA 
;SEE IF DONE 
;1F NOT: BR 
; RETURN 


SALL BITS 377-Oeeeeeeeeee 


000377 : #377,R1 sR1=STARTING DATA 
004004 #4004 ,R2 :R2=CHARACTER COUNT+4 
R1,(R35)+ :LOAD BUFFER 
1 ;BUMP DATA 
;SEE IF DONE 
31 NOT: BR 
;RETURN 


ALTERNATING CHARACTERS 0 AND 377eeeeneeene 


01 000377 : MOV #377,R1 :R1 = DATA 
014236 014022 JMP DATIA ;LOAD BUFFER 


WALKING ZERO/ALL ZERO IN ALTERNATING CHARS**###* 


014242 002002 : #2002 ,R2 ;SET BUFFER SIZE 
000376 #376,R1 ;SET WALK BASE 


: R1,(R3) ;LOAD WALK BYTE 
177400 #177400,(R3)+  ;CLEAR HIGH BYTE 
R1 WALK ZERO BIT 


sFILL BUFFER 
014270 OC : RETURN 
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CZTEDC.P11 10-MAY-79 1 


77 
SEQ 0077 


;AUTO SEQUENCE PATTERN«teeeeeee 


2 000200 
014322 
; 000010 


#200,R2 
WAPATS,RI 
#10,R4 
(R1D+, (R3)4 
R4 


014340 177777 


;SET NUMBER OF ENTRIES 
SET START OF PATTERN 


;SET et; OF PATTERN 
sFILL BUFFER 

:SEE IF DONE PATTERN 
:1F NOT: BR 

: SEE _DONE BUFER 

7 1F NOT: BR 


RETURN 


DATA GENERATOR SUBROUTINE**#eeeenee 


000556 
026344 
177777 


022314 
000630 


014342 013704 FMCNT,R4 
MWDATA,R3 


#-1,R1 

2 

PC,RANG 
RANSAV, (R3) + 
R4 


000001 014404 


1$ 
#1,RDFL 
PC 


014404 000000 





;SET NUMBER OF FRAMES 
SET ADDRESS OF START OF BUFFER 
SET HIGH LIMIT 


SET LOW LIMIT 
;60 GENERATE NUMBER 
BUFFER 


LOAD 


SEE IF DONE WHOLE BUFFER 
:1F NOT: BR 
;SET RANDOM DATA FLAG 


ZEXIT 
:RANDOM DATA SELECT FLAG 


CZTEDCO TMO3S-TE16/TU77 . 
CZTEDC.P11 10:32 


014636 


10-MAY-79 


013700 


000207 


000556 


026344 
014742 


014614 
014716 


000400 


177703 


177703 
000074 


014742 


026344 
014742 


014614 
014716 


000010 
000420 


MACY11 30A(1052) 


014742 


014744 


014746 


000552 


CRCLRC: 


CLO: 


CLI: 


CL2: 


CLLAST: 


CL3: 


CLP: 
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SEQ 0078 


FRR R ERAT AKA AA AAA AAA ATER AAAAAAAAAAA KARAT A Te 


;CRC/LRC CHARACTER BUILD; 


;THIS ROUTINE WILL CONSTRUCT AND SAVE Hey} — 
:CRC AND LRC CHARACTERS ACCORDING TO DATA AND 
;RECORD SIZE IF OPERATING IN NRZ MODE 


PITTTTIITITITIITITITITILI ITIL ITT ttt tte ttt 


44 eens ;SET RECORD SIZE 
MOV #WDATA,RI1 ;SET START OF BUFFER 
CLR XORS 
MOVB (R1),R4 GET CHARACTER 
JSR C,CLP 3;GO GET PARITY OF CHARACTER 
ve PC,XOR ;XOR CHARACTER 
L 
ROR R4 ;ROTATE 1 RIGHT 
BCC CL2 ;1F NO CARRY: BR 
ne #400,R4 ;SET BIT NINE 
L 
MOV R4,R5 SAVE CHARACTER 
BIC #177703,R5 
COM R 
BIC #177703,R5 
BIC #74,R4 
BIS R5,R4 ;COMPLIMENT BITS 2,3.4,5 
we R4,XORS 
BNE CLO ;BRANCH IF NOT LAST CHAR 
MOV XORS ,R4 
COM XORS 
BIC #177050,Xx0RS 
BIC #177727, COMPLIMENT ALL BUT BITS 385 
BIS R4,XORS 
MOV XORS ,EXCRC SAVE EXPECTED CRC 
MOV FMCNT,RO 
NEG RO 
MOV #WDATA,RI1 ;D0 EXPT LRC 
CLR XORS 
MOVB (R1) ,R4 
JSR PC,CLP ;GET PARITY 
JSR PC,XOR :XOR CHARACTER 
DEC RO 
BNE CL3 ;D0 ALL FOR LRC 
MOV EXCRC,R4 
JSR PC,XOR :XOR CRC TO DATA 
MOV XORS ,EXLRC 7 SAVE —" LRC 
RTS PC ;RETUR 
TST R4 +12 iF 0 CHAR 
BNE CLPE IF : BR 
BIT #10,UDES ‘SEES iF "EVEN PARITY 
BEQ CLPE ;1F NOT: 
MOV #420,R4 SET 0 a EVEN PARITY 
INC R1 : BUMP POINTER 
RTS PC ; RETURN 


CZTEDCO tt 3 wr hol | i“? 
Pil 10:32 


CZTEDC.P 10-MAY-79 
3569 014640 005046 
3570 014642 106304 
3571 014644 005516 
3572 014646 105704 
3573 014650 001374 
3574 014652 112104 
3575 014654 042704 
3576 014660 106026 
3577 014662 103405 
3578 014664 032737 
3579 014672 001406 
3580 014674 000207 
3581 014676 032737 
3582 014704 001001 
3583 014706 000207 
3584 014710 052704 
3585 014714 000207 
3586 
3587 014716 010446 
3588 014720 043716 
3589 014724 040437 
3590 014730 052637 
3591 014734 013704 
44 014740 000207 
3594 014742 000000 
3595 014744 000000 
3596 014746 000000 


177400 


000010 


000010 


000400 


MACY11 30A(1052) 


000552 


000552 


PE: 


CL 
18: 


CLP2: 
CLP3: 


MOR: 


XORS: 


EXCRC: 
EXLRC: 


10-MAY-79 
CLR -($P) 
ASLB RG 
ADC (SP) 
TSTB RG 
BNE ‘ 
MOVE = (R1) +, RG 
BIC #177 7460, R4 
RORB (SP3* 
BCS LP2 
BIT f10 UDES 
BEQ cLPs 
RTS PC 
BIT #10, UDES 
BNE cLPs 
RTS PC 
BIS #400,R4 
RTS PC 
MOV R4,-(SP) 
BIC XORS, (SP) 
BIC R4, KORS 
BIS (SP)+#,XORS 
MOV XORS ,R4 
RTS PC 
0 
0 
0 


8 7 
10:46 PAGE 79 


SEQ 0079 


7 CLEAR —— SPACE ON STACK 
SHIFT DAT 

;ADDUP # oF 1 BIT 

;BRANCH IF ALL rs LEFT 


;BRANCH IF ODD # OF 1 BITS 
;SEE IF SHOULD BE EVEN PARITY 
F NOT: BR 


SELSE EXIT 
SEE IF SHOULD BE ODD PARITY 
:1F NOT: BR 


sELSE EXIT 
sSET PARITY BIT 
sMOR SUBROUTINE: R4& WITH XORS 


:XOR SAVE 
EXPECTED CRC 
EXPECTED LRC 





on 


CZTEDCO TMO3-TE16/TU77 “? 


CZTEDC.P11 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 014750 
3614 014754 
3615 014760 
3616 014764 
3617 014772 
3618 014774 
3619 014776 
3620 015002 
3621 015006 
3622 015014 
3623 015016 
3624 015024 
3625 015026 
3626 015034 
3627 015036 
3628 015040 
3629 015042 
3630 015044 
3631 015046 
3632 015050 
3633 015052 
3634 015056 
3635 015 
3636 015 
3637 015072 
3638 015076 
3639 015102 
3640 015104 
3641 015110 
3642 015112 
3643 015120 
3644 015122 
3645 015124 
3646 015126 
3647 015130 
3648 015152 
3649 015140 
3650 015142 
3651 015144 
3652 015152 
3653 015154 


10-MAY-79 


000241 


10:32 


000656 
000704 
000556 
000020 


026344 
032352 
000010 


000020 
002000 


000020 
177777 


000556 
026344 
000562 


000556 - 


000020 


000001 


000020 


MACY11 30A(1052) 


000552 


000552 
000552 
000552 


013652 


DCHK: 


DCHKO: 


DFOF: 


DFOE: 


DFOD: 


DFOC: 


DFOCO: 


- PFOB: 


000552 


000556 


000552 


DFOBO: 


DFOA: 


10-MAY-79 
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seterrrererererererrererererereeeeeeeKeeeeereeeeATAeee 


;DATA CHECK SUBROUTINE: 


STHIS SUBROUTINE 1S USED TO COMPARE EACH CHARACTER 
sOF DATA READ FROM TAPE WITH THE EXPECTED CHARACTER. 
sANY ERROR DETECTED WILL CAUSE CONTROL TO BE 

;PASSED TO AN ERROR PRINT SUBROUTINE AND A 

; SUBROUTINE TO ACCUMULATE THE NUMBER OF BITS 
;DROPPED AND PICKED UP FROM EACH CHARACTER 

[THE NUMBER OF READ ERRORS 1$ ALSO ACCUMULATED. 
DATA CHECKING MAY BE TERMINATED BY USE OF 

;CONSOLE SWITCH THIRTEEN (13) 


FERRARA ARTETA EATER AAA AAATAEAAAEAAAAAEAAAA AAA AAR AS 


BBC 

DERFL 
FMCNT RS 
#20,UDES 
DCHKO 

R5 
#WWDATA,R1 
#RDATA,R2 
#10,UDES 


DFOCO 
#20,UDES 
0co 


#20,(R1)+ 
#-1,PATS 
DFOE 
FMCNT,R5S 
#WDATA,RI1 
ROCMD 


DFO 
FMCNT,R4 


"RG 
#20,UDES 
DFOBO 


R4 
R4,R1 


DFOC 
#2000,UDES 
DFOCO 


CLEAR BAD RECORD CNTR 
;CLEAR DATA ERROR FLAG 
;LOAD CHAR COUNT 

;SEE IF CORE DUMP 

:1F NOT: BR 


:R5 = FC/2 

;SET WRITE DATA ADDR 
;SET READ DATA ADDR 

SEE IF EVEN PARITY 


;1F NOT: BR 

; SEE If a DUMP PARITY 
"SEE IF PE MODE 

:1F SO: BR 

SEE IF a CHAR 

z1F SO: 


; BUMP POINTER 

SEE IF DONE 

:1F NOT: BR 

;ELSE CONTINUE 

SET 20 IN PLACE OF © 

SET PATTERN GENERATE FLAG 


;RESET CHAR CNT 
RESET DATA ADDRESS 
;SEE IF READ REVERSE 
:1F NOT: BR 

:GET FRAME COUNT 
;SET TO WHOLE NUMBER 
;SEE IF CORE DUMP 

;1F NOT: BR 


;SET TO FC/2 

POINT TO START OF WRITE DATA 
;POINT TO START OF READ DATA 
SEE IF ODD FRAME COUNT 

;1F NOT: BR 

;BUMP POINTER 

SEE IF CORE DUMP 

IF NOT: BR 


SEQ 0080 


7 
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CZTEDC.P11  10-MAY-79 10:32 SEQ 0081 
3654 015156 132742 000001 BITB 3s #1, = (R2) :SEE IF BIT 0 = 1 
3655 015162 001401 BEQ DFOAO [IF NOT: BR 
3656 015164 000261 SEC 
3657 015166 106012 DFOAO: RORB (R2) 
3658 015170 000241 CLC 
3659 015172 132712 000001 BITB = #1, (R2) 
3660 015176 001401 BEQ DFOAI 
3661 015200 000261 SEC 
3662 015202 106012. DFOA1: RORB  (R2) :POSITION BITS FOR REVERSE CORE DUMP 
3663 015204 000241 CLC 
3664 015206 132712 000001 BITB = #1, (R2) 
3665 015212 001401 BEQ DFOA2 
3666 015214 000261 SEC 
3667 015216 106012 DFOA2: RORB  (R2) 
3668 015220 000241 CLC 
3669 015222 132712 000001 BITB = #1, (R2) 
3670 015226 001401 BEQ DFOA3 
3671 015230 000261 SEC 
3672 015232 106012 DFOA3: RORB  (R2) 
3673 015234 005202 INC R2 :RESET POINTER 
3674 015236 124142 DFOA4: CMPB -(R1),-(R2) s TEST DATA CHARACTER 
3675 015240 001010 BNE DF1 :1F NOT GOOD: BR 
3676 015242 105037 000656 CLRB = BBC [CLEAR BAD RECORD COUNTER 
3677 015246 000411 BR DF2 
3678 015250 122122 DFO: CMPB (R1)+,(R2)+ ;CHECK DATA 
3679 015252 001003 BNE DFI :IF BAD: BR 
3680 015254 105037 000656 CLRB = BBC =CLEAR BAD RECORD CNTR 
3681 015260 000404 BR DF2 
3682 015262 004737 016020 DF1: JSR PC,DRPKF :GO GET DROPS AND PICKS 
3683 015266 004737 015354 JSR PC.DERR :GO DO PRINT 
3684 015272 005205 DF2: INC RS ‘BUMP CHAR CNTR 
3685 015274 001404 BEQ DF3 :1F DONE ALL: BR 
3686 015276 005737 000562 TST RDCMD [SEE IF READ REVERSE 
3687 015302 001762 BEQ DFO [IF NOT: BR 
3688 015304 000717 BR DFOA TELSE CONTINUE READ REV 
3689 015306 005037 000664 DF3: CLR HDRFL [CLEAR HEADER FLAG 
3690 015312 005737 000704 TST DERFL ;SEE IF HAD DATA ERROR 
3691 015316 001415 BEQ DFX :1F NOT: BR 
3692 015320 005737 000706 TST SERFL 
3693 015324 001012 BNE DFX 31f NOT DATA ERROR ONLY: BR 
3694 015326 013704 000674 MOV UNP,R4 
3695 015332 005737 000562 TST RDCMD :SEE IF READ REVERSE 
3696 015336 001003 BNE DF4 :1F SO: BR 
3697 015340 005264 001124 INC DATER1(R4) s;BUMP DATA ERROR FORWARD COUNTER 
3698 015344 000402 BR DFX 
3699 015346 005264 001164 DF4: INC DEREV1(R4) ;BUMP REVERSE DATA ERROR 
3700 015352 000207 DFX: RTS PC EXIT 
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CZTEDC.P11 10-MAY-79 10:32 SEQ 0082 
3702 
3703 peererereereerrrerrrererererrereeeenenereeeeeeeeeTeees 
gine ;DATA ERROR SUBROUTINE: 
3706 ;THIS SUBROUTINE IS USED TO PRINT OUT ANY 
3707 sERRORS FOUND DURING THE DATA CHECK. 
3708 sEACH CHARACTER FOUND BAD WILL BE PRINTED 
3709 :1N BIT FORMAT ALONG WITH ITS EXPECTED CHARACTER. 
3710 + AN ERROR HEADER CONSISTING OF THE UNIT NUMBER, 
3711 BLOCK NUMBER, RECORD NUMBER, SIZE OF RECORD, AND 
3712 sERROR TYPE (READ FORWARD, READ REVERSE, WRITE, ETC) 
3713 :1S PRINTED ONLY ONCE FOR EACH RECORD FOUND BAD. 
3714 3A COUNT IS MADE OF THE NUMBER OF SUCCESSIVE BAD 
3715 sCHARACTERS, AND IF TEN (10) SUCCESSIVE BAD CHARACTERS 
3716 ‘ARE FOUND in A SINGLE RECORD, A MESSAGE INDICATING 
3717 tA BAD RECORD CONDITION IS PRINTED AND THE NEXT 
3718 s TWENTY (20) CHARACTERS ARE SKIPPED BEFORE CHECKING 
3719 71S RESUMED. IF THE BAD RECORD CONDITION IS FOUND 
3720 : THREE TIMES IN A RECORD, ALL REMAINING DATA IS 
3721 :SKIPPED EXCEPT THE FINAL TEN (10) CHARACTERS. 
3722 : THIS SKIPPING IS OF COURSE ONLY POSSIBLE IN 
3723 sRECORDS WHICH CONTAIN A SUFFICIENT NUMBER OF CHARACTERS. 
3724 :PRINTING OF ERRORS MAY BE DISALLOWED AT ANY TIME 
3725 :BY SETTING CONSOLE SWITCH TEN (10) TO A ONE. 
3726 s THE OPERATOR MAY CAUSE THE PROGRAM TO HALT ON ANY ERROR 
3727 [BY SETTING CONSOLE SWITCH FIFTEEN (15) TO A ONE. 
3728 peeeeererereeererrereteeeeeeeeeeAAeKeeeeReeARe KAA eeAeS 
3729 
3730 015354 032777 002000 163226 DERR: BIT #2000, aSWR ;BRANCH IF NO ERROR 
3731 015362 001057 BNE DERR4 ; PRINTOUT i 
3732 015364 005237 000670 DERRO: INC PFLG ;SET PRINT FLA 
3733 015370 005737 000664 TST HDRFL ;SEE IF HAVE PRINTED HEADER 
3734 015374 001006 BNE DERROA :1F SO: BR 
3735 015376 004737 022012 JSR PC,PAPRT PRINT CYCLE NUMBER 
3736 015402 000004 023522 TYPE, MSG1 3; TYPE _. ERROR TAG ‘*DE* 
3737 015406 004737 020250 JSR PC, FRPRT PRIN NT F OR R 
3738 015412 000004 023541 DERROA: TYPE,MSG4 sTYPE CHAR # TAG ‘CN’ 
3739 015416 010203 MOV R2,R3 
3740 015420 162703 032352 SUB #RDATA, R3 sPOINT TO CHAR 
3741 015424 005303 DEC R3 
3742 015426 005737 000562 TST RDCMD ;SEE IF READ REVERSE 
3743 015432 001402 BEQ DERROB tI1F NOT: BR 
3744 015434 010503 MOV R5,R3 3GET CHAR NUMBER 
3745 015436 005103 COM R3 
3746 015440 104400 DERROB: TYPOCT ;PRINT CHAR NUMBER 
3747 015442 000004 023527 TYPE ,MSG2 ; TYPE GOOD CHAR TAG ‘G' 
3748 015446 005737 000562 TST ROCMD ;SEE 1F READ REVERSE 
3749 015452 001402 BEQ DERROC ;1F NOT: BR 
3750 015454 111103 MOVB (R1),R3 3;GET CHAR 
3751 015456 000401 BR DERROD 
3752 015460 114103 DERROC: MOVB -(R1),R3 ;LOAD inte hs DATA 
3753 015462 004737 023304 DERROD: JSR PC ,DOUT :60 PRINT CHAR 
3754 015466 000004 023534 =. “TYPE ,MSG3 ; TYPE BAD CHARACTER TAG ‘B' 
3755 015472 005737 000562 TST ROCMD ;SEE If READ REVERSE 
3756 015476 001402 BEQ DERR1 ‘IF NOT: 8R 
3757 015500 111203 MOVB (R2),R3 ;GET CHAR 
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3758 015502 000401 BR DERR2 

3759 015504 114203 DERR1: MOVB =(R2) ,R3 

3760 015506 004737 023304 DERR2: JSR PC ,00UT ;PRINT BAD CHAR 

3761 015512 005737 000562 TST ROCMD ;BRANCH IF READ 

3762 015516 001001 BNE DERR4 ; REVERSE 

3763 015520 122122 DERR3: CMPB (R1)#,(R2)+ ;RESET POINTERS 

3764 015522 105237 000656 DERR4: INCB BBC ;BUMP BAD RECORD CNTR 

3765 015526 122737 000010 000656 CMPB #10,88C SEE IF BLD BIH 

3766 015534 001107 BNE DEREX ;1f NOT: BR 

3767 015536 032777 002000 163044 BIT #2000 ,aSWR ;SEE IF PRINT INHIBIT 

3768 015544 001002 BNE 1$ :1F SO: BR 

3769 015546 000004 023622 TYPE ,MSG15 ;TYPE "BAD RECORD 

3770 015552 105037 000656 1$: CLRB BBC sRESET BAD RECORD CNTR 

3771 015556 105237 000657 INCB BBC+1 ;BUMP AMOUNT 

3772 015562 122737 000003 000657 CMPB #3,BBC+1 ;SEE IF HAD 3 BLD BTHS 

3775 015570 101047 BHI DERR4B :1F NOT: 

3774 015572 022705 177767 CMP #177767,R5 SEE IF ON LAST EIGHT CHARS 

3775 015576 101464 BLOS DERR6 s1F SO: BR- 

3776 015600 012705 177767 MOV #177767,R5 ;SET CHAR CNTR TO 8 

3777 015604 005737 000562 TST RDCMD ;SEE IF READ REVERSE 

3778 015610 001416 BEQ DERR4A ;1F NOT: BR 

3779 015612 012701 026344 MOV #UDATA,RI ;GET START OF BUFFER 
015616 012702 032352 MOV #RDATA,R2 ;GET START OF BUFFER 

3781 015622 062701 000010 ADD #10,R1 

3782 015626 062702 000010 ADD #10,R2 sPOINT TO START +10 

3783 015632 032737 000001 000556 BIT #1,FMCNT SEE IF ODD FRAME COUNT 

3784 015640 001445 BEQ DEREX :1F NOT: BR 

3785 015642 105722 TSTB (R2)+ ;BUMP POINTER 

3786 015644 000445 BR DEREX 

3787 015646 013737 000556 000644 DERR4A: MOV FMCNT, TEMP ;LOAD CHAR COUNT 

3788 015654 005437 000644 NEG TEMP) 34 

3789 015660 162737 000010 000644 SUB #10, TEMP! ;POINT TO BUFFER -8 

3790 015666 013701 000644 MOV TEMP1,R1 ;POINT TO NEXT CHAR 

3791 015672 062701 026344 ADD #WDATA,R1 POINT TO NEXT WRITE CHAR 

3792 015676 013702 000644 MOV TEMP1,R2 ;POINT TO END OF READ DATA -8 FORWARD 

3793 015702 062702 032352 ADD #RDATA,R2 POINT TO NEXT CHAR 

3794 015706 000422 BR — -DEREX sEXIT 

3795 015710 062705 000024 DERR4B: ADD #24,R5 ;SKIP 20 CHARS 

3796 015714 103415 BCS DERR6 :1F EXCEED RECORD SIZE: BR 

3797 015716 005737 000562 TST ROCMD ;SEE 1Ff READ REVERSE 

3798 015722 001405 BEQ DERRS ;1F NOT: BR 

3799 015724 162701 000024 SUB #24,R1 

3800 015730 162702 000024 SUB #24,R2 sRESET POINTERS 

3801 015734 000407 BR DEREX 

3802 015736 062701 000024 DERRS5: ADD #24,R1 :SKIP 20 CHARS 

3803 015742 062702 000024 ADD #24 ,R2 ;SKIP FORWARD 20 CHARS 

3804 015746 000402 BR DEREX 

3805 015750 012705 177777 DERR6: MOV #-1,R5 ;SET TO EOR 

3806 015754 005777 162630 DEREX: TST aSWR ;BRANCH IF NOT HALT ON ERROR 

3807 015760 100012 BPL DEREX1 

3808 015762 000000 HALT 

3809 015764 005737 000670 TST PFLG ;SEE 1F PRINTED 

3810 015770 001006 BNE DEREX1 ;1F SO: BR 

3811 015772 032777 002000 162610 BIT #2000 ,aSWR ;SEE 1F SHOULD PRINT 

3812 016000 001002 BNE DEREX1 ;1f NOT: BR 

3813 016002 0001357 015364 JMP DERRO sELSE PRINT 
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3814 016006 005037 000670 
3815 016012 005237 000704 
sie 016016 000207 
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DEREX1: CLR PFLG 
INC DERFL 
RTS PC 


CLEAR FLAG 
;BUMP DATA ERROR FLAG 
ETURN 


SEQ 0084 


CZTEDCO TMO3S-TE16/1U77 a? 
10:32 
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3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3835 
3834 
3835 
3836 016020 005037 000644 
3837 016024 005037 000646 
3838 016030 005037 000650 
3839 016034 1111357 000644 
3840 016040 111237 000646 
3841 016044 015704 00067 
3842 016050 016437 000764 
3843 016056 016437 001004 
3844 016064 005737 000562 
3845 016070 001005 
3846 016072 124142 
3847 016074 112137 000644 
3848 016100 112237 000646 
3849 016104 004737 016116 
3850 016110 004737 016324 
soa 016114 000207 
3853 016116 113703 000644 
3854 016122 113704 000646 
3855 0160126 140403 
3856 016130 001001 
3857 016132 000207 
3858 016134 012737 000010 
3859 016142 132703 000001 
3860 016146 001451 
3861 016150 105737 000650 
3862 016154 001014 
3863 016156 005277 162534 
3864 016162 100043 
3865 0161 032777 002000 
3866 016172 001402 
3867 016174 004737 022012 
3868 016200 004737 016370 
3869 016204 000413 
3870 016206 005277 162506 
3871 016212 100027 
3872 016214 032777 002000 
3875 016222 001402 


MACY11 30A(1052) 


000720 
000716 


000710 


162416 


162366 


DRPKF : 


DRPK: 


DROP: 


DPC: 


DPCG: 
DPCO: 


DPCOA: 


DPC1: 
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:DROPS AND PICKS SUBROUTINE: 


STHIS SUBROUTINE IS USED TO ACCUMULATE FROM 

EACH BAD DATA CHARACTER FOUND THE NUMBER 

;OF BITS WHICH WERE EITHER DROPPED OR PICKED UP. 

;TWO COUNTERS PER SLAVE ARE USED 10 — THIS 

; INFORMATION AND CAN STORE UP TO 32K D 

OR PICKS BEFORE OVERFLOWING. IF OVERF LOW 1S 

;ABOUT TO OCCUR, THESE ACCUMULATORS ARE 

:PRINTED IN OCTAL AND RESET TO ZERO. 

;THE CONTENTS OF THE ACCUMULATORS MAY BE 

:DISPLAYED AT ANY TIME BY SETTING CONSOLE 
:SWITCH FOURTEEN TO A ONE (1). THE PRINTOUT WILL OCCUR 
;AT THE END OF THE CURRENT BLOCK CYCLE. ; 


peeerererrrereererrrreeeteeeetkeeeKeeKeKAeereAe eee AAAs 


CLR TEMP 

CLR TEMP2 

CLR TEMPS 

MOVB (R1), TEMP 1 ;LOAD GOOD CHAR 
MOVB (R2), TEMP2 ;LOAD BAD CHAR 
MOV UNP 


»R4 
MOV PIKI(R4) ,BPKP 
MOV . DRP1(R4),BDPP 


TST ROCMD ;SEE IF READ REVERSE 

BNE DRPK :1Ff SO: BR 

CMPB ~(R1) ,=(R2) :POINT TO CHAR 

MOVB (R1)+, TEMP ;LOAD GOOD CHAR 

MOVB (R2)+, TEMP2 ;LOAD BAD CHAR 

JSR PC ,OROP :GET DROPS 

JSR PC,PICK GET PICKS 

RTS PC sEXIT 

MOVB TEMP1,R3 :R3 = GOOD CHAR 

MOVB TEMP2,R4 :R4 = BAD CHAR 

BI1CB R4,R3 :GET DROPS/PICKS 

BNE DPCG :1F SOME: BR 

RTS PC RETURN 

MOV #10,BCNT ;SET NUMBER TO CHECK 

B1TB #1,R3 SEE 1F DROPPED OR PICKED THIS BIT 

BEQ DPC2 :1F NOT: BR 

TSTB TEMPS ;SEE IF ON PICKS 

BNE DPC1 :1F SO: BR 

INC aBDPP ;BUMP DROP CNTR 

BPL DPC2 7 1F NO OVERFLOW: BR 

BIT #2000,aSWR :SEE IF HAVE PRINTED DATA 

BEQ PCOA : O: BR 

JSR PC,PAPRT :PRINT CYCLE NUMBER 
JSR PC,DPPRT ;PRINT DROPS AND PICKS 
R DPC2A 

INC aBPKP ;BUMP PICK CNTR 


BPL DPC2 8 BR IF NO OVERFLOW 
Blt #2000 ,aSWR ;SEE IF HAVE PRINTED DATA 
BEQ DPCIA :1F SO: BR 


SEQ 0085 
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16370 
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> > 5 o 
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004737 
004737 
013704 


SSSSfZZ 
x 
z 


o 
S 


000207 


000710 
000902 
000002 


000674 


016126 
024133 


162254 
000710 
000002 


000010 
024144 


162220 


000710 
000002 


MACY11 


000710 


000720 
000716 


000720 
000716 


000650 


000716 
000720 
000716 
000720 
000710 


000716 
000710 


000720 


30A(1052) 10-MAY-79 
JSR PC, PAPRT 
DPCIA: JSR PC ,DPPRT 
DPC2A: MOV UNP ,R4 
MOV DRP1(R4),R3 
MOV PIKICR4) RA 
MOV #10,BCNT 
DPC2B: CLR (R3)¢ 
CLR (R4)+ 
DEC BCNT 
BNE DPC2B 
RTS C 
DPC2: CLC 
RORB R3 
DEC BCNT 
BEQ DPC3 
ADD #2, BPKP 
ADD #2,BDPP 
BR DPCO 
DPC3: RTS PC 
PICK: MOV UNP ,R4 
MOV PIK1(R4) ,BPKP 
MOV DRP1(R4) ,BDPP 
MOvVB TEMP1,RS 
MOvVB TEMP2,R3 
MOVB #1, TEMPS 
ty 4o DPC 
DPPRT: TYPE, nsc26 
MOV UNP ,R4& 
MOV DRPI (RSS. BOPP 
MOV PIK1(R4),BPKP 
ADD #16,BDPP 
ADD #16,BPKP 
MOV #10,BCNT 
DPPRTO: MOV @BDPP ,R3 
TYPOCT 
DEC BCNT 
BEQ DPPRT1 
SUB #2, BOPP 
BR DPPRTO 
DPPRT1: MOV #10,BCNT 
TYPE ,MSG27 
DPPRT2: MOV @aBPKP,R3 
TYPOCT 
DEC BCNT 
BEQ DPPRTX 
SUB #2,BPKP 
BR DPPRT2 
DPPRTX: RTS PC 
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;PRINT CYCLE NUMBER 
PRINT DROPS AND PICKS 


;SET DROP POINTER 


:SEE IF DONE 
;1F NOT: BR 
ZEXIT 


;GET NEXT BIT 
SEE IF DONE 


; CONTINUE 
;RETURN 

3;GET UNIT POINTER 
;SET PICK POINTER 
;SET DROP POINTER 
3R4 = GOOD CHAR 
3R3 = BAD CHAR 
sSET PICK FLAG 
:60 — PICKS 


3 EX] 
:TYPE ‘DROPS* 


;SET DROP POINTER 
SET PICK POINTER 


;SET NUMBER TO PRINT 


PRINT DROPS 

;SEE IF DONE 

:1F NOT: BR 

:BUMP POINTER 

CONTINUE FOR ALL 8 BITS 
:SET NUMBER TO PRINT 
sTYPE *PICKS* 


PRINT PICKS 

SEE IF DONE 

:1F SO: BR 

;BUMP POINTER 

;CONTINUE FOR ALL 8 BITS 
TURN 


SEQ 0086 
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; STATUS CHECK SUBROUTINE: 


HTHIS SUBROUTINE 1S USED TO PERFORM A CHECK OF 

;BOTH THE MASSBUS CONTROLLER (RH11) AND THE TAPE 
;CONTROLLER (TMO2). THE RH11 IS CHECKED FOR ERRORS 

AS REFLECTED IN REGISTERS CS1 AND CS2 AND ALSO THAT 
;THE BUS ae i (BA) AND WORD COUNT (WC) ARE 

:CORRECT. THE TMO2 IS CHECKED FOR DRIVE STATIS (DS), 
DRIVE ERRORS (ER), AND PROPER FRAME COUNT. THE SPECIAL 
:CHECK CHARACTERS (CRC+LRC) ARE ALSO CHECKED WHEN 
SAPPROPIATE (IE: NRZ READ OR WRITE). CERTAIN TYPES 

;OF DRIVE ERRORS IN PE OPERATION WILL BE ACCOMPANIED 
;BY THE DISPLAY OF THE DEAD TRACK REGISTER (CC). THESE 
sTYPES ARE ER BITS 15,10,7,6. THE PRINTOUTS OF BAD 
;CRC,LRC,FC, AND BA WILL SHOW BOTH THE EXPECTED AND 
:RECEIVED VALUES (IE: EXPT-RCVD). ONLY THOSE REGISTERS 
:WHICH ARE IN ERROR WILL BE PRINTED AND ALL PRINTOUTS 
ARE IN OCTAL FORMAT WITH NO LEADING ZEROS. AS IN 

;DATA ERRORS, STATUS ERRORS ARE PRECEEDED BY HEADER 
:DESCRIBING THE HARDWARE UNDER TEST, THE BLOCKING 

; INFORMATION, AND THE ERROR TYPE. 


RRA ARATE T ETAT AAA AAETAAAAAAAAAAAAA AAA TATA ARTA KEE 


013703 000556 : FMCNT,R3 GET FRAME COUNT 
000001 Bl #1,R3 SEE IF ODD 
1 ;1F NOT: BR 
;BUMP COUNT 


1$: R3 
000020 000552 7SEE IF CORE DUMP 
23 3;1f NOT: BR 
R3 :SET TO FC/2 
000010 000672 : ;SEE IF WRITE OP 
4$ 1 SO: BR 
000562 


$ 
032352 #RDATA,R3 
000002 #2,R3 ;SET POINTER 


ER2 
032352 : . eee ;BUILD EXPT READ ADDRESS 
062703 026344 : #WDATA,RS ;BUILD EXPT WRITE ADDRESS 
032777 040000 161702 : ecene..2es ;BRANCH IF NOT UNSAFE 
sADJUST STACK 
020312 GO MARK UNIT OFFLINE 
: SAVE ADDRESS 
020226 
CLEAR FLAGS 


2$ 
161634 ;SEE 1F ADDRESS OK 
001402 3$ :1F SO: BR 


01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
0166 
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3979 016662 005237 020226 INC BAER 7 SET tm ADDRESS ERROR 
3980 016666 032737 000010 000672 3$: BIT #10,ATC1 :SEE IF WRITE OPER 
3981 016674 001006 BNE 5$ 71f NOT: 

3982 016676 005777 161614 4$: TST arc SEE IF FC=0 

3983 016702 001440 BEQ ERS 1F SO: BR 

3984 016704 005237 020234 INC FCER ;SET FC ERROR 

3985 016710 000435 BR ER3 

3986 016712 032737 000040 000672 5$: BIT #40,MTC1 ;SEE IF SPACE OPER 
3987 016720 001766 BEQ 4% :1F SO: 

3988 016722 005737 000676 TST TMFLG SEE IF TM TIME 

3989 016726 001011 BNE 7$ IF SO: BR 

3990 016730 013703 000556 MOV FMCNT,R3 

3991 016734 005403 NEG R3 7R3_= EXPT RECORD SIZE 
3992 016736 0203577 161554 6$: CMP R3,aFC - SEE IF FC = EXPT 

3993 016742 001420 BEQ ERS :1F SO: BR 

3994 016744 005237 020234 INC FCER ;SET FC ERROR FLAG 
3995 016750 000415 BR ER3 

3996 016752 032737 002000 000552 7S: BIT #2000, UDES sSEE IF PE 

3997 016760 001346 BNE 4s :1F SO: BR 

3998 016762 005737 000562 TST RDCMD ; SEE If READ REVERSE 
3999 016766 001003 BNE 8$ :1F SO: BR 

4000 016770 012703 000002 MOV #2,R3 

4001 016774 000760 BR 6$ ;LOOK FOR EXPT = 2 
4002 016776 012703 000001 8$: MOV #1,R3 

res 017002 000755 BR 6$ GO CHECK FC FOR “™ 
4005 017 032777 160000 161476 ERS: BIT #160000 ,aC1 ;SEE IF COUNT ERROR 
4006 017012 001437 BEQ ER4 

4007 017014 017703 161500 MOV acs,R3 ;GET CONT STATUS REG 
4008 017020 042703 000307 BIC #307,R3 ;MASK OUT IR,OR,UNIT NO. & SEE IF OTHER ERRORS 
4009 017024 001406 BEQ 1$ 71F NOT: BR 

4010 017026 005737 000676 TST TMFLG SEE IF TAPE MARK TIME 
4011 017032 001425 BEQ ;1F NOT: BR 

4012 017034 042703 001000 BIC #1000,R3 ;MASK MISSED TRANS & BR IF OTHER ERRORS 
4013 017040 001022 BNE $ 

4014 017042 032777 060000 161440 I$: BIT #60000 ,aC1 ;SEE If EITHER TRE OR MCPE 
4015 017050 001420 BEQ ER :1F NOT: BR 

4016 017052 005737 000676 TST TMFLG :SEE IF TM TIME 

4017 017056 001413 BEQ 3$ ;1F NOT: BR 

4018 017060 017703 161440 MOV @ER,R3 :GET ERROR REGISTER 
4019 017064 032737 000010 000552 BIT #10,UDES :SEE IF EVEN PARITY 
4020 017072 001402 BEQ 2$ :1F NOT: BR 

4021 017074 042703 000100 BIC #100,R3 sMASK PAR 

4022 017100 042703 001000 2$: Bic #1000,R3 :MASK FCE 

4023 017104 001402 BEQ ER4 :1F NO ERRORS EXCEPT FCE: BR 
“nee 017106 005237 020230 3$: INC CONER ;SET CONT ERROR FLAG 
4 

4026 017112 032777 040000 161402 ER4: BIT #40000,a0S ;SEE IF DRIVE ERROR 
4027 017120 001420 BEQ ER6 7 1F NOT: 

4028 017122 005737 000676 TST TMFLG ;SEE IF TAPE MARK TIME 
4029 017126 001413 BEQ 2$ :1F NOT: BR 

4030 017130 017703 161370 MOV @ER,R3 :GET ER 

4031 017134 032737 000010 000552 BIT #10,UDES SEE IF EVEN PARITY 
4032 017142 001402 BEQ 1$ ;1F NOT: BR 

4033 017144 042703 000100 BIC #100,R3 ;MASK PAR 

4034 017150 042703 001000 1$: BIC #1000,R5 ;MASK OUT FCE & BRANCH IF 
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ER6 NO OTHER ERRORS 
020232 2$: DRVER SET DRIVER ERROR FLAG 


014744 020246 : EXCRC,CRCSV sSAVE EXPECTED CRC 
014746 020244 EXLRC,LRCSY ;AND EXPECTED LRC 
002000 000552 fs UDES 

:1F_ IN PE MODE: 


ERP BR 
020000 161374 #20000, aSwR :SEE 1F NO DATA CHECK 

ERP :1F NOT: BR (ALLOW READ OF UNKNOWN TAPES) 
000040 000672 140, -MTC1 ;SEE IF WRITE OR READ OP 


:1f NOT: BR 
000676 TMFLG ; SEE IF TAPE MARK TIME 
F NOT: BR 


014744 EXCRC 

000023 014746 #23, EXLRC SET CRC/LRC FOR TM 

000060 000552 : #60 ,UDES ;SEE IF FORMAT 14 
ERPT ;1F NOT: BR 

161246 acc,R3 ;GET CRC CHARACTER 

177000 #177000,R3 


014744 EXCRC,R5 
2$ ;1F CRC GOOD: BR 


020240 CRCER SET ERROR FLAG 
161230 : ae ;GET LRC 

R3 

3$ 


MMRNRNNINN Ae Ss 
Se ee A ah 
con Coe 


NOrOrer 


SSNS SSN SSS ONS 


“NN 
mrrwnrr 
eyes 
oreo 


000400 #400,R3 
177000 : #177000,R3 


014746 EXLRC,R3 

ERPT ;1F LRC GOOD: BR 
020242 R3,ACTLRC SAVE ACTUAL LRC 
020236 LRCER ;SET LRC ERROR FLAG 
000562 ioe a yy REVERSE 
020236 C SELSE CLEAR LRC ERROR 


;CLEAR ERROR FLAG 


ee ee ed ed ae ee ed ed ee ed ed eed ee De ee ee 
~“ 
a 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


020226 
;SEE IF ANY ERROR 
F SO: BR 


020170 
: SE SET ERROR FLAG 
000722 M aER, ERSAV ; SAVE er priate 
002000 161162 #2000, ,OSWR + IF PRINT 


SO: BR 
000002 000712 ;SEE IF READ RETRY 
:1F NOT: BR 
000702 RICNT,RS 
R3 ;BUMP RETRY COUNT 
000604 + Nat ;SEE IF LAST RETRY 


B E :1F SO: BR 
029002 020232 ERPTGI: #2,DRVER ;SEE IF TM STATUS ERROR 
001402 B ERPTO :1F SO: BR 
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020050 J ERPXO 
ERPTO: PFLG 
2 JS PC ,PAPRT ;PRINT HEADER 
0652 017510 : EMADDR,1$ ;GET ADDRESS OF ERROR MSG HEADER 
1$: 0 dye a OF ERROR MESSAGE HEADER 
020250 R PC, FRPRT sPRINT F OR R 
000676 THE LG LG 
025012 000652 sre AnSG34, sEMADDR 
025030 TYPE, a. sTYPE ‘TM 
020230 : ST 
BEQ ERPT T2 :1f NO CONT ERROR: BR 
023737 TYPE ,MSG23 sTYPE*CS1" 
160732 MOV aci,R3 
TYPOCT ;PRINT CONTROL 1 
023764 TYPE ,MSG23D ; TYPE CS TAG 
160730 MOV r) 
PRINT CONT STATUS 


020232 
B ;1F SO DRIVE ERROR: BR 
023772 es , ;TYPE DS TAG 


160712 
TYPOCT ;PRINT DRIVE STATUS 
023777 nag ; ; TYPE ER TAG 


160702 ! 
:PRINT DRIVE ERROR 


020226 

B ;1f NO BA ERROR: BR 
023752 TYPE BA TAG 

MOV r) 3 


160652 
:PRINT BUS ADDRESS 
023520 


020224 
PRINT EXPT BUS ADDRESS 


020234 

BEQ ERPT :1f NO FC ERROR: BR 
023757 :TYPE FC TAG 

MOV arc 


160622 
YPOCT ;PRINT FRAME COUNT 
023745 : Ao 3 ; TYPE WC TAG 


160604 

sPRINT WORD COUNT 
020240 

:1f NO CRC ERROR: BR 
025055 TYPE ,MSG58 :TYPE CRC TAG 
160602 M acc,R3 
177000 #177000,R3 

POCT 

023520 
014744 

:PRINT EXPECTED CRC 


T 
020236 ERPTSA: 
B :1F NO LRC ERROR: BR 
000004 025063 TYPE ,MSG59 ; TYPE LRC ERR TAG 


oO 

—_ 

~ 

DARPA ARTA ES 

VENGNOSOFOF 
rs = 


SSNS SSS 
wun 
ee rw 
orosf 


a et tt st Hs Ss st 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


PRINT ACTUAL CRC 


ee ee ee ee ed ed ed ed ed ed ed 
SSNS 
Tf —s 
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020246 


013703 


000000 


020242 


023520 
014746 


020232 
002000 


160502 
075477 


024011 


160470 
177000 


160534 


000670 
002000 
017470 
000670 
000566 


000040 
000550 


000011 


000510 
000100 
000552 
000040 
000676 


020246 
020244 


MACY11 30A(1052) 


000552 


160514 


160376 
160370 


160350 


160352 
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MOV 
TYPOCT 


TYPE ,DASH 
MOV 


ACTLRC,R3 
;PRINT ACTUAL LRC 


EXLRC,R3 
DRVER 
ERPT? 
#2000 ,UDES 
ERPT7 


sPRINT EXPECTED LRC 
:1F NO DRIVE ERROR: BR 
;1F NO PE: BR 


@ER,R4 
#75077 Rh sMASK OUT ALL BUT BITS “e 19. 7,6 
P17 ;1F NO CONDITIONALS SET: 


BEQ 
hh MSG25H TYPE CC TAG 


oOooCoCoCooooo 


acc,R3 
7177000, R3 MASK CC 
PRINT CHECK CHARACTERS 


aSWR BRANCH IF NOT HALT ON ERROR 
ERPX 


PFLG iste IF HAVE PRINTED 
#2000, aSWR ‘SEE IF SHOULD PRINT 
ERPX :1F NOT: BR 

:PRINT ERROR 


;BRANCH IF CRC ERROR 
CORRECTION DESIRED 
sELSE INIT 

RESET DRIVE NUMBER 


DRIVE CLEAR 

:CLEAR AS 
R4 
#100, (R4) sRESET TRE 
UDES ,aTC sRESET TC 
#40,MTC1 
ERPX2 ;1F NOT READ/WRITE OP: BR 
TMFLG 
ERPX2 ;1F NOT TM TIME: BR 
CRCSV,EXCRC sRESTORE CRC 
"leit ;RESTORE LRC 


sEXIT 
EXPT ADDRESS SAVE 
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020250 


02 
020310 


020312 


020366 


10-MAY-79 


000137 


10:32 


000010 


023655 
000002 


023652 


000674 
040000 
024061 
000734 


026246 


004731 
026210 
004154 
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000672 


020306 
000672 


020306 


000742 


peeeereeeererrererrrerererererreneerererereeeeererenee 


7F FOR FORWARD/R FOR REVERSE PRINT SUBROUTINE: 


;THIS SUBROUTINE IS USED TO PRINT OUT THE 
;TAPE DIRECTION USED WHEN ANY ERROR IS 
sDETECTED IN STATUS OF READ OR WRITE, DATA, OR 
; SPACING OPERATIONS. 


peterererererrerrereerererrereeeeneeeeeneerenereeeeees 


FRPRT: BIT #10,ATC1 SEE IF WRITE COMMAND 
8 3 O: BR 


MOV #4SG17,2% sPRSET MESSAGE TO READ REVERSE 
Sita sBRANCH IF REVERSE 
N 
MOV #MSG16,28$ ;SET FORWARD MESSAGE 
1$: TYPE ; TYPE MSG 
23: «WORD 0 
3$: RTS PC EXIT 


ROUTINE TO MARK UNIT OFF LINE 


OF FLINE : MOV UNP,R1 ;GET UNIT POINTER 
BIS #40000,UN1(R1) ;MARK UNIT OFF LINE 


TYPE ,MSG25 TYPE "SLAVE UNSAFE-NO FURTHER TESTING ON SLAVE 
ae + a F ;BRANCH IF NOT IN AUTO SEQUENCE 
TYPE, msG123 TYPE ‘AUTO-SEQ TEST WILL RESTART 
MOV #500,SP sRESET STACK PTR 
IMP ASEQO RESTART AUTO-SEQ 
1$: Sy es :DECREMENT UNITS TO TEST CTR 
N 
ht Stas TYPE "NO UNITS LEFT TO TEST: HALT" 
HAL 
2$: JMP REOT 


SEQ 0092 


CZTEDCO sag A | DRT 
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020372 
020376 
020404 


020526 


10-MAY-79 1 


012777 


10:32 


000644 
000550 
040000 


020312 
020000 


022012 
026044 
020000 
000026 
177777 


000556 
000001 


000020 


157764 
000011 


MACY11 30A(1052) 


160114 
160112 
160074 


160054 
000672 


000552 


157754 


TAPG: 
1$: 


TAPG3: 


1$: 


TAPGSF : 


TAPGSA: 


TAPG3B: 


TAPGSC: 
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; eeeeerereerrerrerrerreeererereeaeeeeeeeeeeeeeeTeeeAee 


; TAPE COMMAND EXECUTE SUBROUTINE: 


HTHIS SUBROUTINE IS USED TO EXECUTE THE 

MAG TAPE COMMAND ee BY THE READ 

sOR WRITE ROUTINE. THE FINAL COMMAND IS 

sSENT TO THE DEVICE REGISTER ALONG WITH THE 
INTERRUPT ENABLE AND GO BITS. 

sONCE THE COMMAND IS ISSUED, AN INTERRUPT 

TIMER 1S STARTED AND IF NO INTERRUPT ee 


;TWO INTERRUPT HANDLERS ARE USED, ONE FOR MAG TAPE 

;AND ANOTHER FOR TELETYPE (TTY). 

UPON RECEIPT OF A MAG TAPE INTERRUPT, HOUSEKEEPING 
31S PERFORMED AND CONTROL RETURNED TO THE CALLING 
;ROUTINE (READ,WRITE,ETC). 

;RECEIPT OF A TTY INTERRUPT WILL CAUSE THE 
;PROGRAM TO CHECK FOR ENTRY OF A CNTRL C CHARACTER. 
71F NOT CNTRL C, THEN CONTINUATION OF WAIT FOR MAG 
;TAPE INTERRUPT IS RETURNED. IF, HOWEVER, THE TTY 
INTERRUPT WAS CAUSED BY ENTRY OF A CNTRL C, 

;THEN AT THIS TIME REQUESTS FOR NEW STALL VALUES 

sARE PRINTED AND THE RESPONSES ENTERED. RESUMPTION 

OF TAPE INTERRUPT WAIT IS THEN RESUMED. 


FUERA AAAK AAA AEA RAAAAAAAAAEAAAAAAAERAARAAREARARERAAee eee 


CLR TEMP 

MOV DVN,acs ;SET DRIVE NO. 

BIT onoeee® @ER SEE IF UNIT SAFE 
BEQ PG3 $0: 


iF BR 
G0 MARK _s — 
:SEE IF PIP 
:1F SO: BR 


JMP OFFI NE 
Ab oes og ,a0S 


EQ 
JSR PC,PAPRT ;PRINT HEADER 
TYPE ,MSG116 : TYPE MSG 
BIT #20000,a0S 
BNE 1$ AWAIT PIP RESET 
CMP #26, MTC1 ;SEE IF WRITE 1M 
BNE TAPG3A :1F NOT: BR 
MOV #-1,R ELSE SET FC FOR -1 
BR TAPG3B 
MOV FMCNT,R4 
BIT #1, 
BEQ TAPG3B 
DEC R4 
SEC 
ROR R4 sSET WC = FC/2 FOR NORMAL FORMAT 
BIT #20,UDES ;SEE IF CORE DUMP FORMAT 
ne TAPG3C 7 1f NOT: BR 
ROR R4 ;SET WC = nd FOR CORE DUMP 


SET WORD COUN 
DRIVE CLEAR 


MOV R4 awe 
MOV #11,aC1 


SEQ 0095 
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CZTEDC.P11 Y- 
4295 020534 017777 157756 157754 MOV arc, arc sRESET FC LOADED 
4296 020542 005737 000570 TST INTRE [SEE IF INTERCHANGE READ 
4297 020546 001407 BEQ TAPG3D :1F NOT: BR 
4298 020550 032737 000040 000672 BIT #40,MTC1 iStE IF READ OP 
4299 020556 001403 BEQ TAPG3D T: BR 
4300 020560 012777 000003 157746 MOV #3,aMR ue INTERCHANGE READ MAINT. MODE 
4301 020566 013704 000672 TAPG3D: MOV MTC1,R4S °GE Ca 
4302 020572 042704 177707 BIC #177707 ,R4 [MASK OP CODE 
4303 020576 022704 000030 CMP #30,R4 “SEE IF SPACE OP CODE 
4304 020602 001403 BEQ TAPG3E :1F $0: BR 
4305 020604 012737 177740 000666 MOV #-40,STAL SET INTERRUPT DELAY MULT TO 40 
4306 020612 052737 000101 000672 TAPG3E: BIS #101,MTC1 ;SET INTERRUPT ENABLE AND GO 
4307 020620 000240 NOP 
4308 020622 013777 000672 157660 MOV MTC1,aC1 sEXECUTE COMMAND 
020630 5077 157752 CLR aPsw ;CLEAR PRIORITY 
4310 020634 005037 000644 CLR TEMP1 
4311 020640 5237 000644 TAPG4: INC TEMP1 ;SEE IF HAVE TIMED OUT 
4312 020644 001375 BNE TAPG4 31F NOT: BR 
4313 020646 005237 000666 INC STAL 
4314 020652 001372 BNE TAPG4 3D0 TIME DELAY MULTIPLIER 
4315 020654 012777 000340 157724 TAPGS: MOV #340,aPSW sRESET PRIORITY 
4316 020662 032777 002000 157720 BIT #2000 ,aSwWR sSEE IF SHOULD PRINT ERRORS 
4317 020670 001013 BNE TAPG6 s1f NOT: BR 
4318 020672 004737 022012 JSR PC,PAPRT >PRINT CYCLE NUMBER 
4319 020676 013737 000652 020706 MOV EMADDR, 1$ 
4320 020704 000004 - TYPE :TYPE MSG 
4321 020706 000000 1$: .WORD 0 
4322 020710 004737 020250 JSR PC, FRPRT sPRINT F OR R 
4323 020714 000004 024042 TYPE, MSG24 : TYPE "NO INTERRUPT’ 
4324 020720 005777 157664 TAPG6: TST aswR ;BRANCH IF NOT HALT ON ERROR 
4325 020724 100001 BPL TAPG7 
4326 020726 000000 HALT 
4327 020730 000137 021162 TAPG7: JMP MTINTA sRETURN TO CALLING ROUTINE 
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4329 
4330 ;TTY INTERRUPT HANDLER 
4331 020734 017746 157654 TTINT: MOV aTKB,-(SP) ;GET CHARACTER 
4332 020740 042716 000200 BIC #200, (SP) STRIP PARITY BIT 
4333 020744 122716 000003 CMPB #3, (SP) ;BRANCH IF NOT “C 

334 020750 001005 BNE 1$ 
4335 020752 000005 RESET sRESET ALL 1/0 
4336 020754 005077 157626 CLR aPSw CLEAR PSW 
4337 020760 000137 000200 JMP a#200 RESTART PROGRAM 
4338 020764 122716 000001 1$: CMPB #1, (SP) :BRANCH IF NOT “A 
4339 020770 001015 BNE 2% 
4340 020772 022737 000176 000610 CMP #SWREG, SWR ;BRANCH IF HARDWARE SWR IS INVOKED 
4341 021 001014 BNE 
4342 021002 012737 177570 000610 MOV #177570,SWR ; INVOKE HARWARE SwR 
4345 021010 004737 022432 JSR PC,.SAVE SAVE REGISTERS ON THE STACK 
4344 021014 000004 026162 TYPE ,MSG121 sTYPE "HARDWARE SWR IN USE" 
4345 021020 004737 022454 JSR PC, RESTORE sRESTORE REGISTERS 
4346 021024 022716 000007 2$: CMP #7, (SP) ;BRANCH IF NOT “G 
4347 021030 001005 BNE Gh 
4348 021032 012737 000176 000610 38: MOV #SWREG, SWR ; INVOKE SOFTWARE SwWR 
4349 021040 004737 022346 JSR PC,GTSWR GET SWITCHES 
4350 021044 022716 000002 4$: CMP #2, (SP) ;BRANCH IF NOT “B 
4351 021050 001041 BNE 6$ 
4352 021052 004737 022432 JSR PC,.SAVE SAVE REGISTERS ON THE STACK 
4353 021056 5237 013444 INC SCVFL ;SET FLAG 
4354 021062 004737 013226 JSR PC, TINP3SA GO CHECK CRC CORRECTION 
4355 021066 032777 000040 157514 BIT #40 ,aSWR BRANCH IF NOT YOZZLING 
4356 021074 001425 BEQ 5$ 
4357 021076 000004 024652 TYPE ,MSG44 REQUEST NEW YOZZLE STALL 
4358 021102 013703 000602 MOV YSTAL.R3 
4359 021106 104400 TYPOCT ;PRINT PRESENT STALL 
4360 021110 012705 000602 MOV WYSTAL RS :SET ADDRESS OF YSTL 
4361 021114 -012701 000007 MOV #7,R1 SET NUMBER OF CHAR TO INPUT 
4362 021120 012702 177777 MOV #-1,R2 SET MAXIMUM LIMIT 
4363 021124 012703 002000 MOV #2000 ,R3 SET MINIMUM LIMIT 
4364 0211350 004737 022476 JSR PC,TIR :GO GET VALUE 
4365 0211354 004737 022454 JSR PC, .RESTORE sRESTORE REGISTERS 
4366 021140 005726 TST (SP)+ ;POP CHARACTER OF THE STACK 
4367 021142 012716 010770 MOV #YOZ, (SP) ;RETURN TO ‘YOZ' 
4368 021146 000002 RT] sRETURN TO YOZ 
4369 021150 004737 022454 5$: JSR PC, .RESTORE Sk 
4370 021154 005726 6$: Tou ~*~ “tSPpe ;POP CHARACTER OFF THE STACK 
ri +4 021156 000002 RTI ;RETURN 
4375 ;MAG TAPE INTERRUPT HANDLER 
4374 021160 000240 MTINT: NOP 
4375 021162 042777 000037 157344 MTINTA: BIC #37,aMR CLEAR MAINT MODE 
4376 021170 013716 000662 MOV RTRN, (SP) $-2 em TO (RTRN) 

sRETU 


4377 021174 000002 RT] 
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= 

o 

~ 
ooo 
rer 


Gace 
Oo 
Nu 
ooo 
Mmrrnr 


Aaa 

$33 

Ww 

oooooooo 

Mmroererrrnrrt mr 

a et tt 
MNMMMN UNNI PNP Nr rnNn— 
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FMSUMEMEMENMENGS 
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000004 025477 


4 0 
013703 000550 
004 026335 


000004 024400 
012700 000742 


004737 021524 
004737 021656 
022737 000007 
005237 000550 
005737 000740 


000137 004662 


MACY11 30A(1052) 


000550 


ASEQ: 


ASEQO: 
ASEQ1: 


1$: 


28: 


ASEQ4: 


ASEQX: 
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peeeererrrrrererrerereererereerenee 


;AUTO SEQUENCE 


:THIS ROUTINE ,ENTERED VIA STARTING ADDRESS m4 
WILL EXERCISE ALL AVAILABLE SLAVES ON ALL AVAILABLE 
;DORIVES IN BOTH PE AND NRZ ACCORDING TO THE PRESELECTED 


;TEST PLAN. IF NRZ ONLY, PE TESTING WILL NOT BE ATTEMPTED. 


Seeerrecereeeererererecerreeeereerere 


* — REQUEST ‘AUTO CONT’ 


#ASEQCE RS +h ADDRESS OF ENTRY 
MOV #2,R1 T SIZE OF ENTRY 
MOV #1,R2 SET UPPER LIMIT 
MOV #0,R3 SET LOWER LIMIT 
JSR PC,TIR GO GET INPUT 
CLR DVN ;SET DRIVE # 0 
JSR PC,,HRDS 3GO0 SELECT HARDWARE CONFIGURATION 
TYPE ,MSG101 TYPE ‘eeeeee,, 200" 
TYPE ,MSGS2A TYPE "DRIVE (1M03) = ° 
MOV DVN,RS 
TYPOCT ;PRINT DRIVE # 
TYPE , SPACE 
TYPE ,MSG32 sTYPE ° SLAVE # = ° 
MOV #UN1,RO ;POINT TO START OF SLAVE TABLE 
MOV (RO)+,R3 
BMI $ 
TYPOCT 


ae mah SLAVE TABLE 


ALL 
GO DO MODE 1(NRZ) 
G0 DO MODE 2(PE) 
:SEE IF _ ALL DRIVES 


1$ 
JSR PC, AMOD1 
JSR PC, AMOD2 


BEQ ASEQX ;1F SO: 

INC DVN :BUMP DRIVE NUMBER 

BR ASEQ1 ; CONTINUE 

TST ASEQCF SEE IF CONTINUOUS AUTO SEQ 
NE ASEQO :*+B CONTINUE TESTING 

JMP TEND 





SEQ 0096 
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CZTEDC.P11 


4449 021 


sseresssesces 


NaS fun 


000207 


140050 
000742 
003034 
000006 
000550 
157062 
010000 
000401 


000010 
004730 
177777 


MACY11 30A(1052) 


000041 


157034 
004730 


HRDS: 


1$: 
2s: 


3$: 


4$: 


5$: 


10-MAY-79 
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; SUBROUTINE TO SELECT AUTO SEQUENCE HARDWARE **eeeeee 


REOTC 
#40,aCS 
DVN,acs 
#10000,aCS 
23 

(SP)+ 
ASEQ4 
#2007 ,R0 
#140050,R0 
1$ 

RO 

#UN1,R1 
CHNFLG 

3$ 

46,0841 

3$ 

DVN 

3$ 

RO 

RO,aTC 
#10000,a0S 
4% 

#401 ,REOTC 
RO,(R1)+ 
RO 

#10,R0 

3$ 

REOTC 


1$ 
#-1,(R1) 
PC 


out EOT UNIT CNTR 


7SET DRIVE 

ACCESS DRIVE 

TEST FOR NON@EXI STANT DRIVE 
z1f DRIVE AVAIL: BR 

;RESET STACK POIN TER 


:G0 SEE IF TRIED ALL ORIVES 

:+*#B GET CONTENTS OF DRIVE TYPE REG 
;+*B CLEAR SPR AND SPEED BITS 

3++*B BRANCH IF NOT TMOS MAGTAPE DRIVE 


SET START OF SLAVE TABLE 
;BRANCH IF NOT IN CHAIN MODE 
;BRANCH IF NOT LOADED VIA TMDP 
;BRANCH IF NOT DRIVE 0 


:00 NOT hg SLAVE 0 

SELECT SLAVE 

;SEE IF SLAVE AVAIL FOR TEST(MOL) 
;1f NOT: BR 

; INCREMENT UNITS TO TEST COUNT 
[LOAD SLAVE # INTO SLAVE TABLE 


:STEP TO NEXT SLAVE 
;BRANCH IF ALL SLAVE NOT DONE 


sSEE IF _FOUND ANY SLAVES 
:1F NOT: BR 

TERMINATE SLAVE TABLE 
:RETURN TO SEQ 


SEQ 0097 
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4451 

4452 

4453 

4454 021524 
4455 021530 
4456 021534 
4457 021540 
4458 021544 
4459 021546 
4460 021552 
4461 021560 
4462 021566 
64635 021574 
4464 021602 
4465 021606 
4466 021612 
4467 021616 
4468 021624 
4469 021630 
4470 021636 
4471 021642 
4472 021650 
4473 021654 


sesescesessescs 
NMHEM SMP nrnr 


So 
— 


000654 
000742 
001700 
177777 
004744 


003352 
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; SUBROUTINE TO SELECT NRZ AUTO TEST MODEeeeeeeerece 


AMOD1: CLR BLCNTR ;ASSURE BLOCK COUNTER IS 0 
MOV [GET START OF SLAVE TABLE 
1$: BIS a 700" tate 7SET ALL SLAVE TO NRZ,NORM,ODD 
CHP 1, ORT) SLOOP UNTIL REACED END OF TABLE 
N 
JSR PC, RWNDA :G0 REWIND ALL AVAIL SLAVES 
000736 MOV #6. ABLCNT [SET NUMBER OF BLOCKS FOR MODE 1 
000556 MOV #-4000,FMCNT  :SET FC = 400 
000554 MOV #100, RCNT [SET REC CNTR = 100 
000560 MOV #1,PATRN [SELECT PATTERN 1 
CLR TMEX TASSURE NO TMK 
CLR INTRE TASSURE NORMAL READ 
JSR PC, STAUTO [GO DO AUTO MODE 1 
000560 MOV #10,PATRN [SELECT PATTERN 10 
JSR PC, STAUTO [GO DO PATTERN 10 
000560 MOV #14,PATRN “SELECT PATTERN 14 
JSR PC, STAUTO 
000560 38: MOV #-1,PATRN :SELECT AUTO RANDOM DATA 
JSR PC, STAUTO 
RTS PC :RETURN TO SEQ 


SEQ 0098 
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022004 
022010 


sseaees 


oooo 
at ot ot 


oooooo 


0 
177777 
004744 
000006 
174000 

00 


003352 


MACY) 


000560 
000560 
000560 


000736 
000560 


30A(1052) 


AMOD2: 


1$: 


3$: 
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; SUBROUTINE TO SELECT PE AUTO TEST MODEteerereere 


BLCNTR SCLEAR BLOCK CNTR 

#UNT,RI [SET START OF SLAVE TABLE 

#1700, (R1) [CLEAR NRZ 

#2300, (R1)¢4 [SET TO PE NORM, ODD 

#1(R (R1) [LOOP UNTIL END OF TABLE 

PC ,RWNDA sREWIND ALL SLAVES 

#6, ABLCNT :SET AUTO BLOCK COUNT 

#-4000,FMCNT  :SET FC = 4000 

#100,RCNT sSET REC CNTR 10.100............-..45 
-* WI0,PATRN SSELECT PATTERN 10 

PC, STAUTO :G0 DO AUTO SEQ 

#ié, PATRN sSELECT PATTERN 14 

PC, STAUTO 

#15,PATRN sSELECT PATTERN 15 

PC, STAUTO 

#-1,ABLCNT sFORCE TO END OF TAPE 

#-1,PATRN ;SELECT AUTO RANDOM DATA 

PC, STAUTO 

PC :RETURN TO SEQ 


SEQ 0099 


arpa sen ea ee 
CAO OAD AD LOAD 40.19 DOO 9 0 


CZTEDCO TMOS-TE16/TU77 DRT 


CZTEDC.P11 


022012 


10-MAY-79 10:32 


000004 024754 
013703 000550 


000004 024400 
013703 000552 
042703 177770 


000004 023522 
013703 000552 


042703 177770 
025071 
032737 000010 


000004 025075 
013703 000552 


042703 177760 


000004 023565 
005737 000560 


000004 023655 
0135703 000560 


000004 023607 
013703 000654 


000004 025615 


032737 000010 000672 


001416 


MACY11 30A(1052) 


000552 


PAPRT: 
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peterererereereeerererereererereneerareeeneeaeeneneeTe 


ZERROR HEADER PRINT SUBROUTINE: 
STHIS ROUTINE IS ; See TO PRINT OUT A HEADER 


sLINE 1: DRIVE NO. 


;LINE 2: 


THE PRINT IS IN TWO 


ORMATION. 
SLAVE NO. DENSITY PARITY FORMAT 
CURRENT BLOCK NUMBER, RECORD 


NUMBER IN 


sWHICH THE ERROR OCCURED PLUS THE TOTAL eS 

OF RECORDS IN THIS BLOCK, THE RECORD SIZE (NUMBER 

7OF CHARACTERS), AND THE ERROR TYPE (READ WRITE, SPACE, ETC) 
[PLUS THE TAPE DIRECTION (FORWARD OR REVERSE). 


;ALL NUMBERS ARE IN OCTAL 


peeerererrererereraeeeeeeerereneneneeeaseneAeAeAAeeeese 


TYPE ,MSG52 
MOV 


DVN,R3 
TYPOCT 
TYPE ,MSG32 
MOV UDES ,R3 
BIC #177770,R3 
TYPOCT 
TYPE ,MSG1 
MOV UDES ,R3 
SWAB OR 
BIC #177770.R3 
TYPOCT 
TYPE ,MSG61 
CLR R3 
BIT #10,UDES 
BEQ PAPRT 
INC R3 
PAPRTO: TYPOCT 
TYPE ,MSG62 
MOV UDES.R3 
ROR R3 
ROR Ra 
ROR R3 
ROR R3 
BIC #177760,R3 
TYPOCT 
TYPE ,MSG8 
TST PATRN 
BPL PAPRTC 
PAPRTA: TYPE,MSG17 
BR PAPRID 
PAPRTC: MOV PATRN,R3 
TYPOCT 
PAPRID: 


TYPE ,MSG13 
MOV BLCNIR,R3 
TYPOCT 

TYPE ,MSG14 

MOV RO,R3 

BIT #10,MTC1 
BEQ PAPRT1 


sTYPE "DRIVE # = ° 
;PRINT DRIVE NUMBER 
sTYPE ‘SLAVE # = ° 


PRINT SLAVE NUMBER 
TYPE DENSITY TAG ‘*DE' 


;PRINT DENSITY 
TYPE PARITY TAG ‘*P* 


SET PARITY INDICATOR = EVEN 
[PRINT PARITY BIT STATE 


:TYPE FORMAT TAG ‘#F' 


POSTION FORMAT BITS 


PRINT FORMAT 
TYPE PATTERN # TAG ‘*PATRN* 
;BRANCH IF NOT RANDOM PATTERN 


TYPE *R* FOR RANDOM 


PRINT PATRN NUMBER 
TYPE BLOCK # TAG ‘*BN' 


PRINT NUMBER 

;TYPE RECORD # TAG ‘*RN' 

;GET # OF RECORDS LEFT TO PROCESS 
SEE IF WRITE OPERATION 

:1F SO: BR 


SEQ 0100 


CZTEDCO TMOS-TE16/TU77 DRI 


CZTEDC.P11 


022210 


10-MAY-79 10:32 


022737 


000050 000672 
000562 
000032 
000712 
000554 


000672 


023520 
000554 

023560 
000556 


000001 000664 


MACY11 30A(1052) 
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CMP #30 ,ATC1 


BEQ PAPRTI 
1ST RDCMD 
EQ PAPRTI 
CMP #32,M1C1 
BNE PAP 
TST RTYEL 
BEQ PAPRT3 
PAPRT1: MOV RCNT,R3 
PAPRTY: SUB RO,RS 
INC 3 
PAPRT3: TYPOCT 
TYPE ,DASH 
v CNT,R3 
ct 
TYPE ,MSG7 
MOV FMCNT,R3 
NEG 
TYP 


BRANCH IF SPACE FORWARD 
BRANCH IF READ FORWARD 
;BRANCH IF NOT SPACE REVERSE 
BRANCH IF NOT RETRYING 


:GET # OF RECORDS TO PROCESS 
7FORM RECORD NUMBER 
3*+MP ADJUST RECORD NUMBER IN FORWARD DIRECTION 


PRINT RECORD NUMBER 
;TYPE A DASH ‘-" 


sPRINT RECORD COUNT 


s TYPE RECORD SIZE Li *#RS' 


;PRINT RECORD SIZE 


;SET HEADER FLAG 


:RETU URN 


SEQ 0101 
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CZTEDC.P11 10-MAY-79 10:32 SEQ 0102 
4577 
4578 peeeerereererereeeerereererrerererereerereeeeeerenente 
30 ; RANDOM NUMBER GENERATOR SUBROUTINE: 
4581 THIS SUBROUTINE 1S USED TO GENERATE THE RANDOM 
4582 S NUMBERS REQUIRED FOR USE AS RANDOM DATA, 
4583 sRECORD COUNT, AND CHARACTER COUNT. 
4584 evereererereererererererreteteeteeeteerenererrenteees 
4585 
4586 022314 063737 000630 000626 RANG: ADD RANSAV ,RANBAS 
4587 022322 063737 000626 000630 ADD RANBAS,RANSAV ;GET NEW NUMBER 
4588 022330 023701 000630 CMP RANSAV,R1 7SEE IF NUMBER TOO BIG 
4589 022334 101367 BHI RANG 3 O: BR 
4590 022336 020237 0006350 CMP R2,RANSAV 7SEE 1f NUMBER TOO SMALL 
4591 022342 101364 BHI RANG :1F SO: BR 
rE HS 022344 000207 RTS PC sEXIT 
t+ ;SUBROUTINE TO GET NEW SOFTWARE SwWR 
4596 022346 022737 000176 000610 GTSWR: CMP #SWREG, SWR ;BRANCH IF SOFTWARE SWR 
4597 022354 001025 BNE 1$ NOT INVOKED = 
4598 022356 004737 022432 JSR PC,.SAVE ;SAVE REGISTERS ON THE STACK 
4599 022362 000004 023500 TYPE ,SMSWR 
4600 022366 017703 156216 MOV aSwR,R3 3GET CURRENT SWR 
4601 022372 104400 TYPOCT 
4602 022374 000004 023510 TYPE , SMNEW sREQUEST NEW SWR SETTING 
4603 022400 013705 000610 MOV SWR,RS :TTR ROUTINE RETURNS VALUE TO (R5) 
4604 022404 012701 000007 MOV #7,R1 LIMIT RESPONSE TO 7 CHARS 
4605 022410 012702 177777 MOV #177777,R2 BETWEEN 0 AND 177777 
4606 022414 012703 000000 MOV #0,R3 
4607 022420 004737 022476 JSR PC,TITR 3GET RESPONSE 
4608 022424 004737 022454 JSR PC,.RESTORE ;RESTORE REGISTERS 
ret 022430 000207 1$: RTS PC ;RETURN 
4611 s;ROUTINE TO SAVE REGISTERS ON THE STACK 
4612 022432 010546 -SAVE: MOV %5,-(SP) 7:R5 1S SAVED AT 12(SP) 
4613 022434 010446 MOV %4.-(SP) 73R4 1S SAVED AT 10(SP) 
4614 022436 010346 MOV %3,-(SP) 73:R3 1S SAVED AT 6(SP) 
4615 022440 010246 MOV %2,°(SP) 32:R2 1S SAVED AT 4(SP) 
4616 022442 010146 MOV %1,-(SP) 2R} 1S SAVED AT 2(SP) 
4617 022444 010046 MOV %0,-(SP) :RO 1S SAVED AT (SP) 
4618 022446 016646 000014 MOV 14(SP), (SP) +: PUSH RETURN PC ON THE STACK 
reg 022452 000207 RTS PC ;;RETURN TO CALLER 
4621 3;;ROUTINE TO aad 7 ret i SAVED ON THE STACK 
4622 022454 012666 000014 RESTORE : MOV (SP)+,14(SP) 3;STORE RETURN PC ON STACK 
4623 022460 012600 MOV (SP)+, 
4624 022462 012601 MOV (SP)+,%1 
4625 022464 012602 MOV (SP)+,%2 
4626 022466 0126035 MOV (SP)+,% 
4627 022470 012604 MOV (SP)+, 
4628 022472 012605 MOV (SP)+, 
4629 022474 000207 RTS PC 7 RETURN 


a 8 
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CZTEDC.P11 10-MAY-79 10:32 “it we Ph: SEQ 0105 


seeeerrrrrrererererererererertereeeAeKeneReneeeeeeeeee 


sTTY ENTRY SUBROUTINE: 


STHIS SUBROUTINE 1S USED BY THE TEST CONDITION 
ZENTRY ROUTINE TO READ THE RESPONSE ENTERED 

;AT THE TTY AND CHECK THEM FOR LEGALITY AND 
sLIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 
;(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 
;THE CALLING ROUTINE. 

c1F AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 
3A er ice MARK 1S TYPED (?) AND THE RESPONSE 
;MAY BE REENTERED. 

SENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
;MAY BE TERMINATED AT LESS THAN SIX BY TYPING A 
:CARRIAGE RETURN 


PERAK EAAAA ATA TEA AAA AEAEKTAAAAAARAAARAARARARA AT AKAKS 


022476 010146 : R1,-(SP) SAVE CHAR COUNT 
022500 : (SP) ,R1 RESTORE CHAR COUNT (FOR “U) 
000644 TEMP) ;CLEAR FIRST CHARACTER FLAG 


RO 
022722 : PC,TTIN ;GO READ CHARACTER 
000003 020647 ne ;BRANCH IF NOT “C 


000200 a#200 sRESTART AT 200 
000015 000642 : sp0088 :SEE IF CR 


;1f NOT: BR 
000644 % SEE IF FIRST CHARACTER 


:1F SO: BR 
B ELSE GO LOAD VALUE 
000025 000642 : #5, -11B :BRANCH IF NOT CONTROL U 


BNE 
024155 ae an * TYPE <CR><LF> 
000177 000642 : corr te ;BRANCH IF NOT ‘RUBOUT' 
;REMOVE LAST CHARACTER 


RO 
RO 


ASR RO 
026112 TYPE ,MSG118 ;TYPE ‘\' 
INC R1 ;DEC CHAR RECEIVED COUNT 


1$ GET NEXT CHARACTER 
000060 000642 : ;SEE IF CHAR 1S LESS THAN 0 


000070 000642 : ;SEE 1F CHAR IS GREATER THAN 7 

000644 : T SET FIRST CHARACTER FLAG 
sSHIFT 5 LEFT 

mn HDT STUY Ete 


R1 ;SEE 1F DONE 
022666 001310 1$ :1F NOT: BR 





CZTEDCO atts Fw A od | .? 
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4687 


022670 


022720 


10-MAY-79 


020002 


000207 
000004 


000207 


024646 
000020 
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6$: 
7$: 


8$: 
9$: 


TINER: 
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CMP RO,R2 
BHI TINER 
CMP R3, 

BHI TINER 
MOV RO, (R5) 
TST (SP)+ 
RTS PC 

TYPE ,#MSG43 

TST (SP)+ 


SUB #20, (SP) 
RTS PC 


;SEE IF EXCEEDED MAXIMUM LIMIT 
;SEE IF BELOW MINIMUM LIMIT 


;LOAD VALUE 
A ga COUNT OFF STACK 


sive °F 

:POP CHAR COUNT OFF STACK 

[RESET SP TO START OF VALUE ROUTINE 
;REDO VALUE ENTRY 


SEQ 0104 





MMMrrrinrrrvrnnr 
Mmrnrrwnrnrrwrnrvnrnty 
Netsta tt utoinins 





ores TMOS-TE16/TU77 DRT 
79 10:32 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


000004 
000002 
000640 
000045 


023110 


000015 


023110 


000012 
023110 


155502 
000640 


MACYT1 30A(1052) 


000642 
000642 
000642 


000004 


000640 


000640 


155474 


10-MAY-79 


BNE 23 
TYPE ,MSG28 


R4,-(SP) 
R3,-(SP) 


94(SP) ,R4 


#2,4(SP) 
— 


$ 
#45, (R4)+ 
1$ 


PC,10G 
10$ 


#15, 108 
PC,10G 


aTPS 

TOG 
TOB,aTPB 
PC 
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ZTTY READ SUBROUTINE eeeeereree 


STRIP PARITY BIT 
BRANCH IF NOT <CR> 


sTYPE "<CR><LF> 
sECHO CHARACTER 


sTTY OUTPUT SUBROUTINE teeeeeeeeere 
;SAVE R4& ON THE STACK 


;GET ADDRESS OF MESSAGE TO TYPE 
ADJUST RETURN PC 

:GET A CHARACTER 

;AND BRANCH IF END OF MSG 
;BRANCH IF CRLF CHARACTER (%) 


ECHO CHARACTER 


D0 FILLERS 


sRESTORE REGISTERS 
:RETURN 


;RETURN 


ee ee ee ee ee ee ee ee ee ee ee a a a ie Oo ee 
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CZTEDC.P11 10-MAY-79 10:32 SEQ 0106 
re by sOCTAL OUTPUT SUBROUTINE t#eerereerce 
4748 023126 005037 023302 OCTP: CLR OFL ;CLEAR FLAG FOR LEADING ZERO 
4749 023132 010304 MOV + £ R4 SEE IF NUMBER - ZERO 
4750 023134 001003 BNE ;1f NOT ZERO: 
4751 023136 000004 026357 TYPE, icito 
4752 023142 000434 BR 4$ ;SPACE AND EXIT 
4753 023144 100004 1$: BPL 3$ ;BRANCH IF MSD IS A ‘O° 
4754 023146 012704 000001 MOV #1,R4 
4755 023152 006737 025242 JSR PC ,OCTPG sPRINT 1 
4756 023156 004 3$: ROR RG 
4757 023160 006004 ROR RG 
4758 023162 006004 ROR RG ;POSITION DIGIT 
4759 023164 006004 ROR RG 
4760 023166 000304 SWAB = RG 
4761 023170 004737 023242 JSR PC,OCTPG sPRINT DIGIT 2 
4762 023174 006004 ROR RG 
4763 023176 000304 SWAB R4 
4764 023200 004737 023242 JSR PC,OCTPG ;PRINT DIGIT 3 
4765 023204 104 ROL RG 
4766 023206 006104 ROL RG 
4767 023210 000304 SWAB RG 
4768 023212 004737 023242 JSR PC ,OCTPG ;PRINT DIGIT 4 
4769 023216 006004 ROR R4 
4770 023220 006004 ROR R4 
4771 023222 006004 ROR RG 
4772 023224 004737 023242 JSR PC ,OCTPG sPRINT DIGIT 5 
4773 023230 004737 023242 JSR PC ,OCTPG :PRINT DIGIT 6 
4774 023234 000004 026555 4$: TYPE, SPACE ;TYPE A SPACE 
ort? 023240 000002 RT1 sExIT 
4777 023242 042704 177770 OCTPG: BIC #177770,R4 
4778 023246 001003 BNE 1$ 
4779 023250 005737 023302 TST OFL 
4780 023254 001410 BEQ 2$ 
4781 023256 005237 023302 1$: INC OFL 
4782 023262 052704 000260 BIS #260,R4 
4783 023266 010437 000640 MOV R4,10B ‘ 
4784 023272 004737 023110 JSR PC,10G 
4785 023276 010304 2$: MOV R3,R4 
4786 023300 000207 RTS PC 
4787 023302 000000 OFL: 0 ;FIRST CHAR FLAG 
HE: 
“~ ;DATA CHARACTER OUTPUT SUBROUTINE***e*eeeeeee 
& 
4792 023304 012704 000010 DOUT: MOV #10,R4 ;SET NUMBER TO PRINT 
4793 023310 110346 MOVB R3,~-(SP) ;GET CHAR TO OUTPUT 
4794 023312 106316 1$: ASLB (SP) :BRANCH IF BIT IS A ZERO 
4795 023314 103005 BCC 2$ 
4796 023316 000004 026341 TYPE DIGIT 
4797 023322 000402 BR 3$ 
4798 023324 000004 026357 2$: TYPE ,DIGIT0 
4799 023330 005304 3$: DEC RG 


4800 023332 001367 BNE 1$ 
4801 023334 005726 TST (SP)+ ;POP STACK 
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CZTEDC.P11 10-MAY-79 10:32 SEQ 0107 
rer 023336 000207 RTS PC 
4804 023340 113703 000651 DOUTD: MOvB TEMP34+1,R3 
4805 023344 004737 023304 JSR PC ,DOUT 
4806 023350 013703 000650 MOV TEMPS, R35 
4807 023354 004737 023304 JSR PC ,DOUT 
<a 023360 000207 RTS PC 
rt sTU16 SERIAL NUMBER PRINT SUBROUTINE**ereee 
4812 023362 017703 155152 SNPT: MOV aSN,R3 :GET CONTENTS OF SERIAL # REG 
4813 023366 023575 TYPE ,MSG9 sTYPE SN TAG 
46814 023372 010304 MOV R3,R4 
4815 023374 000304 SWAB R 
4816 023376 006004 ROR R4 
4817 023400 0060 ROR R4 
4818 023402 006004 ROR RG 
4819 023404 006004 ROR R4 
4820 023406 004737 023454 JSR PC, SNPG :PRINT FIRST DIGIT 
6821 023412 010304 MOV R3,R4 
4822 023414 000304 SWAB R4 
4823 023416 004737 023454 JSR PC, SNPG :PRINT SECOND DIGIT 
4824 023422 010304 MOV R3,R4 
4825 023424 00600: ROR R 
4826 023426 006004 ROR R4 
4827 023430 006004 ROR RG 
4828 023432 006004 ROR R4 
4829 .023434 004737 023454 JSR PC, SNPG ~ :PRINT THIRD DIGIT 
4830 023440 010304 MOV R3,R4 
4831 023442 004737 023454 JSR PC, SNPG sPRINT FOURTH DIGIT 
4832 023446 000004 024155 TYPE ,MSG28 sTYPE <CR><LF> 
6833 023452 000207 RTS PC EXIT 
6834 023454 012737 000260 000640 SNPG: MOV #260, T0B ;SE1 NUMBER BASE 
4835 023462 042704 177760 BIC #177760,R4 [MASK NUMBER 
4836 023466 050437 000640 BIS R4,10B sBUILD DIGIT 
4837 023472 004737 023110 JSR PC,10G 760 TYPE 
46838 023476 000207 RTS PC : RETURN 
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TEDC.P11 10-MAY-79 10:32 SEQ 0108 
4840 

re rh sERROR MESSAGES*erereeeere 
48435 023500 051445 051127 036440 SMSWR: .ASCIZ /2SWR = 

4844 023506 000040 

4845 0235510 047040 055505 056440 SMNEW: .ASCIZ / NEW = / 

4846 023516 000040 

4847 023520 000055 DASH ASCIZ /-/ 

4848 023522 042052 020105 QOO MSGI: .ASCIZ /*DE / 

4849 023527 045 035507 0000460 MSG2: .ASCIZ /26; / 

4850 023534 041045 020073 MSGS: .ASCIZ /%B; / 

4851 023541 045 047103 0000460 MSG4: .ASCIZ /2CN / 

4852 023546 053452 020105 000 MSGS: .ASCIZ /*WE / 

4853 023553 052 042522 000040 MSG6: .ASCIZ /*RE / 

4854 023560 051052 020123 MSG7: .ASCIZ /*RS / 

4855 023565 052 040520 051124 MSG8: .ASCIZ /*PATRN 

4856 023572 020116 000 

4857 023575 123 035116 000040 MSG9: .ASCIZ /SN: / 

4858 023602 051452 020105 000 MSG10: .ASCIZ /*SE / 


pr $4 023607 045 041052 020116 MSG13: .ASCIZ /%*BN / 


4861 023615 052 047122 0000460 MSG14: .ASCIZ /*RN / 
4862 sir47} 020045 020040 020040 MSGI5: .ASCIZ /% BAD RECORD22/ 


4865 023644 051117 022504 000045 


4866 023652 043040 000 MSG16: .ASCIZ / F/ 
4867 023655 040 000122 MSG17: .ASCIZ / R/ 
4868 023660 042440 052117 021440 MSG20: .ASCIZ / EOT # / 


23666 
4870 023670 047111 042524 041522 MSG21: .ASCIZ /INTERCHANGE READ? / 
4871 023676 040510 043516 020105 
4872 023704 seat 042101 020077 


4874 023713 045 046111 042514 MSG22: .ASCIZ /RILLEGAL BOT: HALT2/ 
4875 023720 040507 020114 047502 

4876 023726 035124 waar 7 046101 

4878 023737 045 051503 020061 MSG25: .ASCIZ /%CS1 / 


4880 023745 045 041527 coos MSG23A: .ASCIZ /2WC / 


4881 023752 041045 020101 MSG23B: .ASCIZ /2%BA / 

4882 023757 041506 000040 MSG23C: .ASCIZ /2FC / 

4883 023764 041445 031123 000040 MSG235D: .ASCIZ /%CS2 / 

4884 023772 042045 020123 000 MSG23E: .ASCIZ /20S / 

4885 023777 051105 000040 MSG23F: .ASCIZ /2ER / 

4886 024004 040445 020125 MSG23G: .ASCIZ /2AS / 

4887 024011 045503 000040 MSG23H: .ASCIZ /%CK / 

4888 024016 042045 020102 000 MSG231: .ASCIZ /20B / 

4889 024023 051115 000040 MSG23J: .ASCIZ /2MR / 

4890 024030 042045 020124 000 MSG23K: .ASCIZ /2DT / 

4891 024035 041524 000040 MSG23L: .ASCIZ /%IC / 

4892 024042 047045 020117 047111 MSG24: .ASCIZ /%NO INTERRUPT2/ 
4893 024050 042524 051122 050125 

4894 024056 022524 000 

4895 024061 045 046123 053101 MSG25: .ASCIZ /%SLAVE UNSAFE-TEST DISCONTINUED ON SLAVE%/ 
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4896 024066 020105 047125 0 
06 0 


- SEQ 0109 


4524 0 
4900 024116 042105 047440 020116 
4901 024124 seg 053101 022505 


4903 024133 045 051104 050117 MSG26: .ASCIZ /2DROPS: / 
4905 024144 050045 ogg 0515135 MSG27: .ASCIZ /2RPICKS: / 


4907 024155 045 000 MSG28: .ASCiZ /%/ 
rhe 024157 045 052045 047515 MSG30: .ASCIZ ‘ZRTMO3-TE16/TU77 AUTO SEQUENCE (CZTEDCO)%';++B 


4914 024222 ee 030103 022451 
4916 024231 045 052045 030115 MSG31: .ASCIZ ‘%2TMO3-1E16/TU77 DATA RELIABILITY TEST (CZTEDCO)2*;++B 


4923 024302 052132 mee 030103 
4925 024313 124 050131 020105 MSG31A: .ASCIZ /TYPE <CR> TO TERMINATE ALL REQUESTS & “C TO RESTART2/ 


4934 024400 046123 053101 vail MSG32: .ASCIZ /SILAVE # = 7 
4936 024413 106 047105 044523 MSG33: .ASCIZ /DENSITY = / 
4938 024426 040520 044522 054524 MSG34: .ASCIZ /PARITY = / 


4940 024440 042522 047503 042122 MSG35: .ASCIZ /RECORD COUNT = / 
4941 024446 041440 052517 052116 


4943 024460 044103 051101 041440 MSG36: .ASCIZ /CHAR COUNT = / 
4944 024466 052517 052116 036440 


4946 024476 040520 052124 051105 MSG37: .ASCIZ /PATTERN # = / 
4947 024504 eeon's 020043 020075 


123. 047111 046107 MSG38: .ASCIZ /SINGLE PASS? / 
4950 024520 020105 040520 051523 
4951 024526 020077 000 


CZTEDCO TMOS-TE16/TU77 DRT 
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024531 
024536 


Wwurvnr—oon 
Fowmn fou Ow 
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_ 
Oo 
w 


SAS=N 


042 


——  SOOVMNN 


NrnNO—OoOf 
Pane Fu 


041522 


024460 
042445 


044501 
046111 


000040 
053111 


020105 
042523 
000115 


051103 
051114 
020120 


047522 


042522 
000040 
020105 


MACY11 30A(1052) 


041440 
3 


020077 
052116 


620105 
020116 
042116 


051105 


020124 
020114 


042514 


051104 
054524 


020105 


052101 
046524 
052040 
042455 
051440 

000 
020103 
020103 


025122 
051124 
052122 


MSG39: .ASCIZ /CRC CORRECTION (YES=1,NO=0)? / 


MSG40: 


MSG41: 
MSG42: 


MSG643: 
MSG44: 


MSG45: 
MSG49: 


MSG50: 


MSG52: 
MSG52A: 
MSG53: 
MSG54: 
MSG55: 
mat 
MSG58: 
MSG59: 
MSG61: 


MSG62: 
MSG64: 


MSG65: 
MSG66: 
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eASCIZ 


-ASCIZ 
»ASCIZ 


-ASCIZ 
eASCIZ 


-ASCIZ 
eASCIZ 


»ASCIZ 


ASCII 
-ASCIZ 
eASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 


/RZENTER STALLSZREAD 


/WRITE = / 
/TURN AROUND = / 


/22%/ 
/RENTER YOZZLE STALL 
/ZERR AMT / 


/ZNOT AVAIL / 


/RILLEGAL DRIVE TYPE 


/22/ 
/DRIVE (1M03) # = / 


/FORMAT = / 
/ewE TH/ 
/*SE TM/ 


/ 1M/ 
/ZNON“EXIST SLAVE/ 


/2CRC / 

/ELRC / 

/*P / 

/*F / 

/Z*ORIGINAL ERROR*/ 


/ZRETRY: / 
/*SE RTRY / 


/ 


SEQ 0110 


H 9 
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CZ 
CZTEDC.P11 10-MAY-79 10:32 SEQ O111 
5008 025142 054522 000040 
5009 025146 042452 040522 042525 MSG67: .ASCIZ /*ERASE/ 
5010 025154 000 
5011 025155 045 042522 042522 MSG68: .ASCIZ /2REREV: / 
5012 025162 035126 000040 
5013 025166 040524 042520 046440 MSG69: .ASCIZ /TAPE MARK? / 
5014 025174 051101 037513 000040 
5015 025202 047045 047117 042455 MSG71: .ASCIZ /ZNON-EXIST DRIVE/ 
5016 025210 4530 052123 042040 
5017 025216 044522 042526 000 
5018 025225 045 042522 053506 MSG72: .ASCIZ /ZREFWD: / 
5019 025230 035104 000040 
5020 OseScs 


053445 sal * 051122 MSG73: .ASCIZ /RWTERR: / 

5022 025245 045 042522 044507 MSG74: .ASCIZ /2ZREGISTER START = / 
5023 025252 052123 051105 051440 

5024 025260 040524 052122 036440 


025266 
5026 025270 042526 052103 051117 MSG75: .ASCIZ /VECTOR ADRS = / 
5027 025276 040440 051104 020125 


025 000 
53 025307 045 042504 042522 MSG76: .ASCIZ /2ZDEREV: / 
5031 025320 042045 043105 042127 MSG77: .ASCIZ /2DEFWD: / 


5032 025326 020072 000 

5033 025331 045 047516 026516 MSG78: .ASCIZ /ZNON-RETRYABLE WRITE ERROR: ER / 
5034 025336 042522 051124 040531 

5035 025344 046102 020105 051127 

0 025352 052111 020105 051105 

5037 025 047522 035122 042440 

50 25366 020122 000 

5039 025371 45 047516 026516 MSG79: .ASCIZ /2NON-RETRYABLE READ ERROR: ER / 


5043 025420 051117 020072 051105 


5045 025430 042445 042116 047440 MSG100: .ASCIZ /%END OF PASS %/ 
5046 025436 020106 040520 051523 


0 
5048 025447 045 025045 025052 MSGIO1: .ASCIZ /2dereerereereeeeerereny/ 


020117 MSG104: .ASCIZ /AUTO CONT.? / 
037456 


rey saad $4 MSG105: .ASCIZ /2RECOVERED/ 
040502 020104 MSG106: .ASCIZ /*BAD TAPE OVERFLOW/ 
042526 043122 047514 


051045 053505 047111 MSGI6A: .ASCIZ /%REWIND TAPE; RESTART AT BLOCK 1/ 
020104 040524 042520 


52 
52 
52 022452 
25 
16 
05 


OuwWS wn —— 
OCONMOWFL NWSE 
o 
nx 
So 
wo i=) 
meow S 
ern -o 
Oo 
F 
~ 
w 
~ 
So 
So 
= 
~N 
Fy 
= 
Oo 
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5076 025672 00004 


CZTEDC.P11 10-MA 10 SEQ 0112 
5064 020073 042522 052123 
$065 025574 051101 020124 052101 
025602 041040 047514 045503 
5067 025610 030440 000 
025613 045 047125 042522 MSG107: .ASCI] /2UNRECOVERABLE BAD SPOT/ 
9 025620 047503 042526 040522 
5070 025626 046102 020105 040502 
5071 025634 020104 050123 052117 
5072 025642 041045 042101 051040 -ASC1Z /%BAD RECORD LEFT ON TAPER/ 
5073 025650 041505 051117 020104 
5074 025656 042514 052106 047440  ..... 
5075. 025 2087 mags ae. 
2 
1 


051517 +4 344 MSG109: .ASCIZ /*POSITION LOST IN RETRY/ 


80 2 
5081 025726 051445 051525 042520 MSG110: .ASCIZ /2SUSPECT BAD TAPE/ 
5082 052103 


2040 
025746 051045 050105 040505 MSGI11: .ASCIZ /ZREPEAT: / 
000040 


5086 025760 041040 042101 052040 MSG112: .ASCIZ / BAD TAPE SPOTS2/ 
$087 025766 050101 020105 050123 
025774 052117 022523 —_ 000 


5090 026001 045 051440 043117 MSG113: .ASCIZ /% SOFT: / 
5091 026006 035124 000040 


5093 026012 020045 040510 042122 MSG114: .ASCIZ /% HARD: / 
5094 026020 020072 000 


5096 026023 045 040510 042122 MSG115: .ASCIZ /2HARD READ ERROR/ 
5097 026030 051040 040505 020104 
5098 051105 047522 000122 


026036 
026044 051445 040514 042526 -MSG116: .ASCIZ /ZSLAVE REWINDING: WILL RESTART AT BOT/ 


026102 040440 020124 047502 


026112 000134 MSG118: .ASCIZ /\/ 
026114 051045 046505 0 MSG120: .ASCIZ /%REMOVE TMDP FROM SLAVE TO BE TESTED2/ 


026152 042524 052125 042 
026160 


00 
026162 044045 051101 053 
026170 051101 020105 053 
aseire 020122 047111 0524 


026 
026210 047516 051440 04051 
026216 042526 020125 042514 


MSG121: .ASCIZ /2HARDWARE SWR IN USE%/ 


MSG122: .ASCIZ /NO SLAVES LEFT TO TEST: HALT2/ 


PAMAAAAAAAAAA AUDA UAT 
ee ee ee ee ed a ed ae ed ed ed ed ed ed 
OOne VFwN—o NOUS IN 

So 

™~ 

o 

— 

w 

o 

oS 

= 

Ww 

So 

7 

So 

~J 

= 

™~ 

w 

~ 

~m 

So 


SREESESESEEELNSIONONTS 





DCO TROS-1 
P11 


026224 
0 


032352 


10-MAY-79 


026344 
000000 


032352 
000000 


000001 





E16/TU77 DRI 


10:32 


MAMAN 
NNN 


$22333SS333 
ws 
o-—r 
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051117 


MSG123: .ASCIZ /ZAUTO-SEQ: TEST WILL RESTART2/ 


MSG124: .ASCIZ /2ZCORRECTED PE DATA ERROR/ 


SPACE: .ASCIZ ‘ ° 

DIGITO sciz ‘0 

DIGIT1: .ASCIZ 

WDATA: 0 WRITE BUFFER 
-=.*4004 

RDATA: 0 ;READ BUFFER 
- END 





SEQ 0115 








CZTEDCO TMO3-TE16/1U77 .? 
CZTEDC.P11 10-MAY-79 10:32 


ABLCNT 000736 15614 1906 4460* 
ACTLRC 020242 4065* 4147 41998 
AMOD1 021524 4406 44548 

021656 4407 44778 
APATS 014322 3482 34918 
AS 000526 148548 4179 4180+ 
ASEQ 021176 3085 43878 
ASEQCF 740 15624 8643 4412 
ASEQF 734 1467* 15604 1824* 
ASEQX 021326 4409 44128 
ASEQO 021226 1842 2103 4232 
ASEQI 021232 43948 4411 
ASEQ4 § 021310 44084 4425 

00514 1480# 2229* 2280+ 
BAER 020226 3973 , 3979" 4073 
BBC 15364 3613*  3676* 
BCNT 000710 15494 3858* 3879+ 
BOPP 000716 15524 863843" 3863+ 
BO 001404 1586 16914 
B010 001424 1587 16934 
8020 001444 1588 16954 
8030 001464 1589 16974 
B040 001504 1590 16994 
8050 001524 1591 17014 
B060 001544 1592 17034 
BD70 001564 1593 1705a 
BKSP 011402 2528 2538 28948 
BLCNTR 0 4 15354 1873* 1903* 
BPKP 000720 15534 3842+ 3870+ 
BPO0O 001204 1578 16754 
BP10 001224 1579 16774 
BP20 001244 1580 16794 
BP30 001264 1581 16814 
BP40 001304 1582 16834 
BP50 001324 1585 16854 
BP60 001344 1584 16874 
BP70 001 1585 16894 
BTADDR 001024 15974 2376 2476 
BIFLG 000724 15554 2016 2022 
BTOV 006772 2389 24384 
BTOVX 007124 2465 24698 
BTOvO § 007012 24424 = 2485 
BTOv1 007022 24454 2461 
B1Ov2 007100 2459 24628 
B10v5 007116 24664 2468 
BIPRT 007126 1948 2040 24748 
BIPRT1 007172 2483 24854 
BIPT 000730 15574 =62376* 2377 
BISTF 000726 1556# 1947" 1949+ 
BTUR 007176 2397 24898 
B100 001604 1597 17124 
B101 001710 1598 17144 
BT02 002014 1599 17164 
B103 002120 1600 17184 
B104 002224 1601 17204 
BT05 002330 1602 17224 


MACY11 30A(1052) 
CROSS REFERENCE TABLE -- USER SYMBOLS 
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4484* 


1906 
3889* 


2026 


2379+ 
2462 


4493* 


1904 
4413 
2428+ 
41938 
3764* 


3887+ 
3895* 


1908* 
3894+ 


2038+ 


2380 


2083 


2599* 


3765 
3907+ 
3903* 


2382 
3904* 


24158 


2387 


3045 


2608* 


3770 
3910* 
3905* 


44548 
3906* 


24598 


2442 


3082 


2825* 
3771* 


39148 
3908 


4477* 
3916 


2458 


3305 


2833* 


3772 
3918* 
3912 


4549 
3920* 


2465 


4228 


2898+ 


24768 


2925* 3977 


2477 


2482 


SEQ 0114 


4122 
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CZTEDC.P11 10-MAY-79 10:32 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0115 

B106 002434 1603 17248 

B107 002540 1604 17268 

80 011534 2900 2906 2912 29148 

CADER 020224 2287" §2634e 82910" 5971" 4125 41928 

cc 000530 14868 4052 4138 4160 

CONTR 011664 1916 29684 

CHNFLG 003034 18264 1831* 1838 2101 4432 

CLLAST 014504 35434 

CLP 014614 3527 3554 35628 

CLPE 014640 3565 3565 35694 

CLP2 014676 3577 35814 

CLP3 014710 3579 3582 3584a 

CLO 014424 35264 3542 

Cul 014452 3534a 

CL2 014474 3531 35408 

CL3 014556 3553@ 3557 

CONER 020230 4024* 4103 41948 

cRCC 000566 15044 3234 236 4173 

CRCER 020240 4056* 4135 41988 

CRCLRC 014406 3319 3327 3522a 

CRCSV 020246 4038* 4189 42014 

000520 1482 1889" 1925" 1926 2172 2173* 3087" 3094" 3096 3116* 3117" 4007 4109 

4175* 4176% 4269" 4419% 4420" 4422 ; 

ci 000510 1478@ 2012" 2015* 2067" 2070" 2130" 2131* 2154" 2183" 2188* 3077 3095 4005 
4014 4106 4178* 4181 4294* 4308" 4421 

DASH 023520 4124 4141 4149 4567 48478 

DATAO 002766 17904 

DATA1 002770 17914 

DATAIO 003006 17984 

DATA11 003010 17994 

DATAI2 003012 18004 

DATA13 003014 18014 

DATAI4 003016 18024 

DATAI5 003020 18034 

DATA2 002772 17924 

DATAS 002774 17934 

DATAG 002776 17948 

DATAS 003000 1795# 

DATA6 § 003002 17964 

DATA? 003004 17978 

DATBL 002764 17894 3326 

DATER1 001124 16434 1972 3697* 

DATR 014342 1919 3309 3502e 

DATO 013656 1790 33448 

DATOA 013704 33504 3358 3362 3365 

DATOB §= 013712 33514 3352 

DATOC 013756 3356 33634 

DATOD 013764 33664 3374 

DATOE 013774 33684 3373 

DATOF 014006 3370 33720 

DAT1 014016 1791 33798 

DATIA 014022 33804 3389 3412 3417 3465 

DATIO0 §=014140 1798 3432a 

DAT11 014170 1799 34448 

DATI2 014210 1800 34548 

DATI135) 014232 1801 34648 
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CZTEOC.P11 10-MAY-79 10:32 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0116 
DATIG §=— 0014242 1802 34694 

DATIS §©014272 1803 34814 

DAT2 014036 1792 33884 

DATS 01404 1793 3393@ 

DAT3A 014050 33958 3406 

DATS 014 794 34048 

DATS 014076 1795 34114 

DAT6 014104 1796 34168 

DAT? 014112 1797 34214 

0B 000532 14878 

DCHK 014750 2679 36134 

DCHKO 014776 3617 36198 

DEREVI 001164 16654 1984 3699* 

DEREX 015754 3766 3784 3786 3794 3801 3804 38064 

DEREX1 016006 3807 3810 3812 38148 

DERFL 000704 15478 3614* 3690 3815* 

DERR 015354 3683 37308 

DERRO 015364 37328 86381 

DERROA 015412 3734 37388 

DERROB 015440 3743 37468 

DERROC 015460 3749 3752a 

DERROD 015462 3751 37538 

DERR1 015504 3756 37598 

DERR2 015506 3758 37608 

DERRS 015520 37634 

DERRG 015522 3731 3762 37644 

DERR4A 015646 3778 37878 

DERRGB 215710 3773 37954 

DERRS 015736 3798 3802a 

DERR6 015750 3775 3796 3805a 

DFX 015352 3691 3693 3698 3700# 

DFO 015250 3639 36784 3687 

DFOA 015144 3649 36514 3688 

DFOAO § 015166 3655 36578 

DFOA1 015202 3660 36624 

DFOA2 015216 3665 36674 

DFOAS 015232 3670 3672m 

DFOAS 015236 3652 36748 

DF OB 015104 36408 

DFOBO § 015126 3643 36468 

DFOC 015066 3632 36368 

DFOCO § 015076 3622 3624 3626 36384 
FOD 015052 3628 36334 

DF OE 015044 36304 6 

DF OF 015036 36274 3631 

OF 1 015262 3675 3679 3682m 

DF2 015272 3677 3681 36844 

DFS 015306 3685 36894 

DF4 015346 3696 36998 

DIGITO 026337 4751 4798 5134m 

DIGIT! 026341 4796 5135# 

DOUT 023304 3753 4792# 4805 4807 
DOUTD 023340 48044 

DPC 016126 3855# 3899 

DPCG 016134 3856 38584 

DPCO 016142 3859# 3891 
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CZTEDC.P11 10-MAY-79 10:32 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0117 
DPCOA 016200 3866 38684 
Pci 016206 3862 38704 
DPCIA 016250 3873 38754 
DPC2 016272 3860 3864 3871 38854 
DPC2A 016234 3869 38768 
DPC2B 016256 38804 388 
DPC3 016322 3888 3892a 
DPPRT 016370 1954 3868 3875 39014 
DPPRTX 016520 3919 39228 
DPPRTO 016436 39084 3913 
DPPRT1 016462 3911 39148 
DPPRT2 016474 39164 392 
DROP 016116 3849 38534 
DRPK 016104 3845 38494 
DRPKF 016020 3682 38364 
DRP1 001004 15864 3843 3877 3895 3903 
DRP2 001006 15878 
DRPS 001010 15884 
DRP4 001012 15894 
DRPS 001014 15904 
DRP6 001016 15914 
DRP7 001020 15924 
DRPS 001022 15934 
DRVER 020232 2288*  2635* 4036* 4089 4111 4152 41958 
000522 14834 1928 2013 2044 2063 2068 2071 2073 2132 2148 2150 2178 2181 
ber 2186 2233 2285 - 2616 2622 2632 2728 2908 4026 4114 4273 4277 
DSUP 013472 1933 33034 
so 013500 33054 
DSOA 013562 3313 33218 
DSOB 013560 3317 33208 
DSOC 013522 3306 3308 33120 
DS2A 013610 3304 3311 33278 
DS 013614 2681 2873 33284 
DS4 013626 33314 3333 
DT 000536 14894 3119 3123 3128 4426 
DVN 000550 rey iste 2173 3089 3094 3117 4176 4269 4393* 4397 4408 4410* 4420 
DOFL 014014 3199" 3344 3347* 3375# 
EMADDR 000652 1534@ 2227 82277 = 2404 = 2424* = 2590 = 2896* = 2907 = 2921" = 4094 4100 4319 


EOTCO 002644 
EOTREC 000660 Si 2018 2020" 2121* 2235 2239* 2319 2550 2582 2586* 2587 2620" 2621* 
; “e 3967 4018 4030 4080 4117 4156 4270 


3 
289 2636 2911 4041 4043 4045 4051 4064 4068 40708 


ERPTG 017406 4075 40794 

ERPTG1 017454 084 40894 

ERPTT 017372 40744 4077 

ERPTO 017470 4082 4088 4090 4092# 4171 
ERPT1 017540 4099 4101 41034 

ERPT2 017572 4104 41114 

ERPTS 017624 4112 41194 

ERPT4 017656 4120 41278 


ile ae 
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ere 017676 ie 41328 

ERPTSA 0177466 41 41448 

ERPT 4145 41528 

ERPT 4153 15 4158 41634 

ERPX 020102 4165 4168 4170 41728 

ERPXO 50 4091 41648 

ERPX1 020170 4078 41858 

ERPX2 020222 4186 4188 41918 

ERSAV 000722 15548 2256 2302 2349 2725 2761 2791 4072* 4080 

ERTFL 0007352 15584 2395* 2418 24218 

ER2 016614 2292 2411 2431 2662 2857 2863 2913 2928 3962 3964 39678 

ERS 017 3983 3985 3993 3995 40054 

ERG 01711 4015 4023 40268 

ER6 017162 4027 4035 40384 

EXCRC 014744 3548* 3558 35954 4938 4048* 4054 4142 4189* 

EXLRC 014746 3560* 35964 4039 4049* 4063 4150 4190+ 

000516 isos 2228* 2279" 24605" 2425* 2598 2810" 2837* 2901" 2923" 3982 3992 4130 
® 

FCER 020234 3984* 3994" 4127 41968 

FCSAV 000634 15234 1993 3194* 

FACNT 000556 1500# 1993" 2228 2598 2602 2651 2828 2837 2847 2972" 3185* 3186 3188 
3193" 3194 3328 3502 3522 3549 3615 3636 3640 3648 3783 3787 5948 
3990 4283 4461* 44685" 4571 

FRPRT 020250 2793 3737 4097 4212# 4322 

GTSWR 022346 3241 4349 4596# 

HORFL 000664 15394 3689* 3733 4574+ 

HERE 004706 4 21004 

HRDS 021340 4394 44184 

INIT 005236 1934 21714 

INTRF 000570 1505# 3216 3218 4296 4465+ 

LRCER 020236 4066* 4069" 4144 41978 

LRCSV = 020244 4039* 4190 42008 
14884 4057 4300*  4375* 

MSG1 023522 3736 4522 48484 

MSG10 2 2896 2921 48584 

MSG100 025430 2092 5045# 

MSG101 025447 4395 50484 

MSG104 025477 4387 50534 

MSG105 025514 2344 50564 

MSG106 025527 2028 50584 

MSG107 025615 2490 50684 

MSG109 025674 2024 5077# 

MSG110 025724 2360 50814 

MSG111 025746 2364 50844 

MSG112 025760 2481 50864 

MSG113 026001 1965 1977 50904 

MSG114 026012 1968 1980 5093# 

MSG115 026023 2782 50964 

MSG116 026044 4276 50998 

MSG118 026112 4672 51064 

MSG120 026114 1836 5107# 

MSG121 026162 4344 51148 

MSG122 026210 4235 51184 

MSG125 026246 4230 51234 

MSG124 026504 2731 51284 

MSG15 023607 2449 4548 48594 
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MSG14 023615 2452 4551 48614 

MSG15 023622 3769 48628 

MSG16 6023652 4217 48664 

MSGI6A 025552 2037 50628 

MSG17 023655 4214 4544 48678 

MSG2 023527 3747 48498 

MSG20 023660 2032 48684 

MSG21 023670 3215 48704 

MSG22 023713 2625 48748 

MSG235_ 023737 4105 48784 

MSG23A 023745 4132 48808 

MSG23B 023752 4121 48814 

MSG23C 023757 4129 48828 
230 023764 4108 48838 

MSG23E 023772 4113 4884" 

MSG23F 023777 4116 48854 

MSG23G 024 48864 

MSG23H 024011 4159 48878 

MSG231 024016 48884 

MSG23J 024023 48898 

MSG23K 024030 48904 

MSG23L 024035 48918 

MSG24 024042 4323 48928 

MSG25 024061 4227 48954 

MSG26 024133 3901 49034 

MSG27 9 024144 3915 49054 

MSG28 = 024155 2460 2474 4664 4709 4832 4907# 

ASG3 023534 3754 48504 

MSG30 024157 1841 3047 49084 
1 024231 3044 49168 

MSG31A 024313 3051 3052* 4925« 

MSG32. 024400 3102 4400 4518 49348 

MSG33 9024415 3133 49364 

MSG34 §=©024426 3145 49388 

MSG35 024440 3174 49404 

MSG36 4 ©024460 3184 49438 

MSG37 ©024476 3196 49468 

MSG38 024513 3224 49498 

MSG39 = 024531 3233 4952m 

MSG4 023541 3738 48514 

MSG40 024567 3246 4958e 

MSG41 9024616 3255 49624 

MSG42 024627 3264 4964m 

MSG43 024646 4695 49678 

MSG44 024652 4357 49684 

MSG45 024701 49728 

MSG49 = 024715 49748 

MSGS 023546 2227 48524 

MSG5O 024727 3127 49778 

MSG52 = 024754 4515 49818 

MSG52A 024756 3088 4396 49828 

MSG55 025000 3156 4985# 

MSG54 025012 2277 4100 49878 

MSG55 025021 2907 4989" 

MSG56 025030 4102 49914 

MSG57 = 025034 3121 4992m 


dD 10 
CZTEDCO TMOS-TE16/TU77 DRT MACY11 350A(1052) 10-MAY-79 10:46 PAGE 121 
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MSG58 025055 4137 49958 

MSG59 ©=—025063 4146 49978 

MSG6 023553 2590 48534 

MSG61 025071 4527 49998 

MSG62 025075 4533 50008 

MSG64 025101 2267 2315 2741 50018 

MSG65 025125 1955 2345 2361 2751 2772 5005# 

MSG66 = 0025134 2404 50074 

MSG67 4 =6025146 2424 50094 

MSG68 025155 1974 50114 

MSG69 025166 32 50134 

MSG7 023560 4570 4854" 

MSG71 025202 3098 5015¢ 

MSG72 025225 1962 50184 

MSG73 = 0025234 1959 50204 

MSG74 9025245 3055 5022a 

MSG75 025270 3064 50264 

MSG76 4 =©025307 1983 50294 

MSG77 = 025320 1971 50314 

MSG78 025331 2260 2306 2354 50334 

MSG79 9025371 2736 2766 5039# 

MS 023565 4541 4855a 

MSG9 023575 4813 4857# 

MTC1 000672 1542 = =2230* 2278* 2408* 2426* 2609 2611" 2813" 2815* 2834* 2836* 2902" 2926+ 
zeae iee8 3986 4044 4185 4212 4215 4279 4298 4301 4306* 4308 4553 

MTINT 021160 1461 3073 43748 

MTINTA 021162 4327 4375# 

NOP = 000240 14148 

NRTP 010754 2261 2307 2355 2737 2767 27918 

ocTP 023126 1423 47488 

OCTPG 023242 4755 4761 4764 4768 4772 4773 4777# 

OFFLIN 020312 1932 2048 2136 2152 3970 4225# 4272 

OFL 023302 4748* 4779 4781* 47878 

PAPRT 022012 1945 2021 2259 2305 2353 2489 2624 2735 2765 3735 3867 3874 4093 
4275 4318 45154 

PAPRTA 022144 45448 

PAPRTC 022152 4543 45464 

PAPRTD 022160 4545 45484 

PAPRTY 022250 45648 

PAPRTO 022102 & 4532a 

PAPRT1 022244 4554 4556 4558 45634 

PAPRTS 022254 4560 4562 45664 : 

PARS 013654 3316 3318* 3334* 3335* 33384 

PATRN 000560 1501# 3197 3200 3307 3312 3322 4463* 4467" 44669 4471* 4487" 4489" 44918 
4494% 4542 4546 

PATS 013652 1872* 2088* 2973* 3312 3323* 33378 3634+ 

PFLG 000670 1541# 3732* 3809 3814* 4092* 4167 4172* 

PICK 016324 3850 38938 


5784 3842 3878 3894 3904 


PIK7 001000 
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PIK8 001002 
PRB 000624 
PRS 000622 
PSW 000606 
RANBAS 000626 
RANG 022314 
RANSAV 00063 
RANSET 004122 
RCNT 000554 
RCNTR 011724 
RCSAV 000632 
RDA 007522 
RDATA 032352 
ROCMD 000562 
RDERR1 001144 
RDER1 001104 
RDER2 001106 
RDERS 001110 
RDERS 001112 
RDERS 001114 
RDER6 001116 
RDER7 001120 
RDERB 001122 
RDEX 010366 
ROFL 014404 
RDRTG 010506 
RDRTX 010752 
RDRTY 010374 
RDRTO 010406 
RORT1 010466 
RDORT1B 010502 
RDRT2 010560 
RDRTS 010600 
RORT4 010604 
RDRTS 010606 
RDRTSA 010650 
RDRTSB 010660 
RDRT6 010706 
RDRT7? 010746 
ROX 010372 
RDO 007556 
RD1 007622 
RDIA 007636 
RD1B 007644 
RD10 010314 
RD11 010324 
RD2 007656 
RD3 007714 
RD4 007742 
RDGA 010036 
RD4AO §=010066 
RD4A1 =010110 
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2702 
2089* 


27548 


27798 


25984 


26948 


2619 
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2704 
3303 


2696 


26224 


2989 3507 4586 4587* 4588 4590 
2581 2914 2989* 3175 3177 3182 4462* 4486* 


2825 2846 2859 2897 2910 2924 3330 3369 
2529* 2533+ tht 2543 2547" 2549* 2584 2592 


35128 


2707 


a re + 


SEQ 0121 


4563 


3620 


2600 
3686 
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RDGA2 010132 2648 2650 2660 26624 
RD4B 010140 2631 26644 
RD4C 010144 2663 26654 
RD4D 010172 2669 267284 
RDGE 010176 2671 26738 
RDS 010206 2629 2666 26754 
RD6 010230 2641 2643 2676 2678 26808 
RD7 010254 2683 26854 
RD7A 010302 2688 26914 
READ 007464 2518 2530 2540 2548 25814 
REGS 000544 14954 3056 3058 3075 
REOT 004154 20084 2323 2417 2441 2552 4237 
REOTC 004730 1896* 2050* 2056* 2065* 2106 2122* 3043" 3164* 3172 4233 4418% 4442 4447 
REOTX 004636 2084 208784 
REOTXX 004724 2091 21054 
REOTIC 004312 2027 20324 
REOTIE 004334 2031 20378 
004354 20414 2047 
REOT2A 004410 2043 2045 20504 
REOT3 004436 2051 20564 
REOT4 004452 20594 
REOT7 004614 20814 
RETRY 000604 15114 2780 4087 x 
RFHARD 002724 17654 1969 2786* 
RFSOFT 002664 17424 1966 2757* 
RPCNT 000700 15454 2269% 2309* 2339* 2340 2365 2422 
RRHARD 002744 17764 #81981 2788* 
RRSOFT 002704 17534 1978 2759* 
RSEQ 007210 1939 25098 
RSEX 007444 2520 2531 2542 25498 
RSF 007260 2516 25194 
RSFR 007340 2514 25334 
RSFRX 007462 2551 25534 
RSFRO 007372 2537 25394 
RSFR1 007402 2535 25414 
RSFR2 007432 2544 254784 
RSFO 007312 2522 25268 
RSF1 007326 2525 527 25298 
RSR 007236 2512 25154 
RSTAL 000574 15074 2685 3247 3249 
RTCNT 000702 ine 2268* 2312* 2346 2362 2371 2390* 2391 2742* 2752 2773 2779* 2780 
4 
RTRN 000662 1538 2231% 2281* 2409* 2429* 2612* 2816*% 2838* 2903" 2922* 4376 
RTYFL 000712 15504 2246 2271* 2293 2317* 2330* 2438* 2674% 2744 2866 4083 4561 
RTY1 001044 16104 1957 2264* 2311 2394" 
RTY2 001046 16114 
RTY3 001050 16124 
RTY4 001052 16134 
RTY5 001054 16144 
RTY6 001056 16154 
RTY7 001060 16164 
RTY8 001062 16174 
RWND 004732 1935 21164 
RWNDA 004744 2117 21194 4459 4483 
RWNDX 005210 2143 21578 
RWNDO 004770 21234 2139 
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RWNDIA 005 2127 2133 21378 

RWND2 005102 2125 21408 

RWNDS 005106 21418 2155 

RWNDS 005172 2146 2151 21534 

SCVFL =013444 1472* 3053 3242 3272* 32748 4353* 

SERFL 000 15484 2249 2253* 2296 2337 2401* 2413 2425* - - 2432 2665 2680" 2730". 274359... J. .... 
2746 3692 4071* 4079+ 

SN 000540 14904 4812 « 

SNPG 023454 4820 4823 4829 4831 48348 

SNPT 02336 3131 48128 

SPACE 026335 4399 4774 51338 

SPFLG 15064 2090 3225 3227 

STAL 000666 1540# 1930" 1937* 1940* 2066 2134% 2244% 24602" 2523" 2545" 2685" 2808" 2817+ 
2821* 2823 2894 2929 2952 4305* 4313* 

STALL 011654 ts 1941 2245 2403 2412 2524 2546 2686 2809 2824 2895 2930 29528 

START 00 1449 1473 18234 

STARTA 003144 1456 18544 2627 

STARTB 003150 1847 18554 

STARTC 003 1452 18504 

STARTD 003250 1851 18748 

STARTE 003242 1873# 2105 

START1 0034 18974 1951 

START2 003522 1915 19174 

STARTS 003536 1918 19208 

STARTS 003552 1902 1 19234 

START? 0037 1924 1943 1950# 2055 

STARTS 003742 19514 

STARIA 003420 18994 

STARIB 003440 1900 19034 

STARIC 003474 1905 907 19114 

STAUT 003122 1468 1839 18454 

STAUTO 003352 18904 4466 4468 4470 4472 4488 4490 4492 4495 

STFLG 000640 15284 1855 1856 


STP 003744 1946 19544 2039 

STTBL 001044 16094 1862 1863 

W 000610 15134 1830* 1876 1880 1884* 1914 1917 1920 1942 2116 2225 2241 2254 
2265 2283 2300 2313 2321 342 2358 2510 2513 2515 2519 2526 2534 
2536 2541 2628 2675 2682 2721 2739 2748 2770 2840 2868 2874 2905 
3730 3767 3806 3811 3865 3872 4042 4081 4164 4169 4316 4324 4340 
4342* 4348* 4355 4596 4600 4605 

SWREG 176 14454 1830 1876 1884 4340 4348 4596 

TAPG 020372 2232 28 2410 2430 2613 2818 2839 2904 2927 42688 

TAPGS 020420 4271 42738 

TAPG3A 020466 4280 42834 

TAPG3B 020502 4282 42878 

TAPGSC 020522 4290 42934 

TAPG3D 0566 4297 g 43014 

TAPG3SE 020612 4304 43064 

TAPG3SF 020450 4274 42798 

TAPG4 020640 43114 4312 4314 

TAPGS 020654 4315# 

TAPG6 020720 4317 43248 

TAPG7 020730 4325 43278 

000542 14914 1927* 2008* 2060" 2129 2147# 2160" 2174 3118* 4184* 4439% 
TEMP1 000644 15314 3108 3349* 3355 3359* 3787" 3788  3789* 3790 3792 3836* 3839" 3847+ 
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3853 3896 4268* 4310" 4311* 4650* 4659 4679+ 

TEMP2 000646 saaee Susy 3103* 3134 3146" 3157 3278" 3282 3360* 3367 3837* 3840" 3848+ 

TEMPS 000650 Ht hy 2350* 2356 2367 2369* 2762* 2768* 2775 2777* 3838" 3861 3898* 4804 

TEND 004662 20928 4414 

118 000642 15304 4653 4657 4662 4666 4675 4677 4683* 4684 4705* 4706* 4707 4711 

TINER 022706 4676 4678 4688 4690 46958 

TINF 000636 1527# =1845* 1850* 1854*  2082* 3039 3244 

TINP 011750 1888 30398 

TINPX 013436 3243 3245 32720 

TINPO 012302 3097 31014 3111 3122 3168 

TINPOB 012364 3109 31148 

TINPOD 012434 3120 31238 

TINPOE 012470 3126 31314 

TINP1 012474 31334 

TINP2 012534 31428 

TINP2A 012612 31564 

TINP2B 012652 31644 

TINP2C 0127 3113 3166 31714 

TINPS 012712 31748 

TINP3A 01 32334 4354 

TINPG 013270 3041 32428 

TKB 000614 15154 4331 4705 

TKS 000612 15144 1897" 4702* 4703 

TMEX 000564 15034 2274 2594 2701 2899 3207 3209 4464* 

TMFLG 000676 15444 2276* 2318* 2332 2591" 2596* 2618 2630 2677 2689* 2703 2705* 2708 
2819 2842 2870 3988 4010 4016 4028 4046 4098 4187 

TOB 0 1529# = =4720* 4727* 4730" 8 4734* 4743 4783* 4834* 4836* 

TOG 023110 4724 4728 473) 4735 47418 4742 4784 4837 

TPB 000620 1517# = =4743* 

TPOS 013446 3140 3154 3163 3278# 3280 

TPS 000616 15164 4741 

TSTAL 0006 1509# 1937 1940 2402 2523 2545 2894 2929 3265 3267 

TTIN 022722 4652 4702# 

TTINT 020734 1439 43314 

TTOUT 022774 1418 47168 -- 

TTR 022476 3062 3071 3093 3107 3138 3150 3161 3181 3192 3204 3213 3222 3231 
3240 3253 3262 3271 4364 4392 4607 46484 

TYPE = 000004 14214 1836 1841 1955 1959 1962 1965 1968 1971 1974 1977 1980 1983 
2029 2032 2037 2092 2260 2267 2306 2315 2344 2345 2354 2360 2361 


71 
TYPOCT= 104400 14254 1958 1961 1964 1967 1970 1973 1976 1979 1982 1985 2036 2347 


UDES 000552 
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3581 3616 3621 3623 3625 3642 3651 3953 3996 4019 4031 4040 4050 
4154 4184 4289 4519 4523 4529 4534 
UNP 000674 15434 1898 1909* 1911* 1950" 1956 2009 2033 2041 2052 2057 2077¢ 2078 
2081* 2119 2120* 2123 2138" 2140" 2141 2153* 2158" 2251 2263 2298 2310 
2373 2375 2393 2475 2637 2667 2754 2783 3042* 3110 3114 3165 3167 
3171* 3281 3694 3841 3876 3893 3902 4225 
UNX 000762 15748 
UNI 000742 15664 1867 1891 1893* 1899 1901 1913 1923 2010 2042 2053 2059 2061 
2066* 2076* 2079 2124 2126 2128 2137" 2142 2144 2145 2159 3112e 8 3115¢ 
3118 282* 4226* 4401 4431 445% 4478 
UN2 000744 15674 
UNS 000746 15684 
000750 15694 
UNS 000752 15708 
UN6 000754 15714 
UN7 000756 15728 
000760 15734 
UPS 000714 1551# 2119" 2157 
vVECT 00054 14964 3065 3067 3072 
we 000512 1479# 4133 4293* 
WOATA 026344 2229 2280 2287 2291 2427 3321 3366 3503 3524 3551 3619 3637 3779 
3791 3965 51384 
006132 2225 2275 2284 2297 2301 2308 23178 
WRITE 005352 1936 22234 
WRTE 5366 2224 22268 
WRTSB 006554 2331 24014 
WRTSBO 006654 24154 2434 
WRTSB1 006670 2414 24184 2433 
WRTSB2 006700 2419 24218 
WRTY 006166 2270 2316 23308 
WRTYR 006220 2335 23378 
WRTIYTM 006214 233 23368 
WRTYO 006174 23318 2341 2396 
WRTY1 006270 2343 23484 
WRTY2 006272 2338 23498 
WRTY2A 334 2352 23584 
WRTY2B 006350 2357 23614 
WRTYS 006410 2359 2368 23714 
WRTYSA 006426 2372 23754 
WRTYS 514 2388 23904 
WRTYS 006550 2392 23978 
WR 006150 23218 
WRwWX 006164 23 2322 2324 
WSTAL 000576 15084 2244 3256 3258 
WIER1 001064 16214 1960 2252* 2299* 2574+ 
WTER2 066 16224 


16244 
WIERS 001074 16254 
WIER6 001076 16264 
WIER7 001100 16274 
WIERB 001102 16284 
WM 005672 22774 2336 
wTM0 005732 2281 22834 
wml 005774 2286 22918 
WTM2 006004 2290 22938 


CZTEDCO atti Pw Ah od A 


CZTEDC.P11 10:32 
WTA3 006014 2294 
WTAG 006072 2304 
WIMGA 006126 2314 
wO 005372 22278 
wi 005434 2231 
aS 005610 2258 
wok 56 2266 
w5 005650 2250 
W6 005660 22748 
XOR 014716 3528 
XORS 14742 3525* 
35948 
YOZ 010770 2684 
YOZA 011026 2812 
YOZB 011034 2814 
vozc 011054 2816 
vO7zCO § 011140 2831 
yYOZC1 011154 2827 
yO7zC2 011162 2835 
YOZD 011202 2838 
YOZD0 011300 2845 
YOZD1 011324 2843 
YOZD2 9011272 2855 
YOZD3 011316 2861 
YO2Z04 011252 2850 
YOZE 011330 2841 
YOZF 011360 2858 
YOZG 011364 2867 
YOZH 011400 2875 
v0z0 011002 28104 
YSTAL 000602 15104 
SENDAD 004676 1432 
SMNEW 023510 4602 
SMSWR 0235 4599 
$SvPC = 000040 14284 
. = 032354 14174 
14664 
16964 
1727# 
RESTO 022454 4345 
SAVE 022432 4343 
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2334 
2262 22718 
3559 35878 
3543 35448 
28084 4367 
2869 2871 
2823 4358 
1428 14294 
14754 16768 
7004 17024 
5137# 51408 
4369 4608 
4598 46128 
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3545* 


28738 


4360 


14318 
16788 
17044 


46228 


3547* 


14334 
16804 
17064 
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3548 


14354 
16824 
1134 


3552* 


14388 
16844 
17154 


3560 


14444 
16864 
17174 


3588 


14 
16 
17 


488 
88" 
194 


3589¢ 


14 
16 
17 


Sia 
908 
2\a 


3590¢ 


14544 
16928 
17238 


SEQ 0126 


5591 


14608 
16948 
17254 


